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About This Manual 


CDC® ICEM Engineering Data Library (EDL) is an application designed to provide a 
user-friendly interface to Control Data’s CAD/CAM products and to manage the 
engineering data produced by these products. The EDL system runs under Control 
Data’s Network Operating System (NOS). 

EDL interfaces to the following application packages: 

• ICEM DDN 1.62 

• ICEM Solid Modeler 1.13 

• PATRAN 1.5 

• UNISTRUCT II 

• ICEM Schematics 

• XEDIT Text Editor 

• Full Screen Editor (FSE) 

The software product IMF is included with EDL. 

Other software products are required to use EDL: 

• Network Operating System (NOS) 

o FORTRAN 5 is required to perform some kinds of customization operations. 

This manual describes how to customize EDL. Information about installing EDL is 
provided with your release tapes. 


Audience 

This manual is intended for system and database administrators whose duties include 
the maintenance and modification of the EDL database. You should have a thorough 
understanding of EDL, NOS, FORTRAN, and QUERY UPDATE before attempting to 
customize your EDL database. 
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Organization 

The organization of this manual is as follows: 

Chapter 1 Provides an introduction to the EDL file structure and the duties of the 
System Administrator. 

Chapter 2 Describes customization of the Message and Task Database using the 
interactive MENUMOD utility. 

Chapter 3 Describes more complex customization and manipulation of the EDL 

databases involving the use of OVCAPS, Information Base (IB) routines, 
and other EDL subroutines. 

Chapter 4 Describes adding an application to EDL. 

Appendix A Contains complete database schemata for the Message and Task 
Database and the Engineering Data Database. 

Appendix B Provides the pseudo QU/DML format for the IB routines used to 
manipulate data records in EDL databases. 

Appendix C Lists descriptions and parameter information for standard EDL 
subprograms used in database customization. 

Conventions 

The word "system" when used in this manual refers to the ICEM EDL software 

system. When the Control Data Network Operating System is referred to, it is called 

either NOS or the operating system. 

All text that the system displays is shown in uppercase letters and highlighted with a 

special t5T3eface, as shown below: 

SYSTEM ADMINSTRATOR TASKS 


1. EXIT E.EXIT 

2. UPDATE THE MESSAGE AND TASK DATABASE MENUMGMT 

3. UPDATE THE DATABASE WITH BATCH INPUT QUBATCH 

4. INTERACTIVE QUERY UPDATE QU 

5. INTERACTIVE MENU MODIFICATION MENUMOD 

6. DISPLAY THE CURRENT EDL EXECUTION STACK STACK 

7. DISPLAY THE CURRENT EDL VARIABLES DISVAR 
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Related Publications 


The following manuals contain information about ICEM Engineering Data Library 
(EDL), the NOS Operating System, and related applications. 

EDL Manuals 

Publication 

Number 

EDL DBA Manual for NOS 

60458880 

EDL Instant for NOS 

60000166 

EDL Reference Manual for NOS 

60459740 

EDL User’s Guide for NOS 

60000167 

Operating System Manuals 

Publication 

Number 

NOS Full Screen Editor User’s Guide 

. 60460420 

NOS Version 2 Information Management Facility Version 2 

Reference Manual 

60484600 

NOS Version 2 Reference Set, Volume 1 Introduction to Interactive 
Usage 

60459660 

NOS Version 2 Reference Set, Volume 3 System Commands 

60459680 

NOS Version 2 Reference Set, Volume 4 Program Interface 

60459690 

Query Update Version 3 Reference Manual 

60498300 

XEDIT Version 3 Reference Manual 

60455730 

ICEM Applications Manuals 

Publication 

Number 

CYBERNET UNISTRUCT II Reference Manual 

76079600 

ICEM Advanced Design for NOS 

60461430 

ICEM DDN Instant for NOS 

60457140 

ICEM Design/Drafting Basic Construction for NOS 

60461420 

ICEM Design/Drafting Data Management for NOS 

60461410 

ICEM Design/Drafting Drafting Functions for NOS 

60461440 

ICEM Design/Drafting GRAPL Programming Language for NOS 

60461460 

ICEM Design/Drafting Introduction and System Controls for NOS 

60457130 

ICEM Design/Drafting User’s Guide for NOS 

60456940 

ICEM GPL for NOS 

60462520 

ICEM Numerical Control for NOS 

60461450 

ICEM Schematics Reference Manual 

60456540 
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Publication 

ICEM Applications Manuals (Cont) Number 

IGES Translator for NOS 60463050 

PATRAN User’s Guide, Volume 1 60459330 

PATRAN User’s Guide, Volume 2 60459340 

UNIPLOT Version 3 User’s Guide/Reference Manual 60454730 

UNISTUCT II User’s Guide 60457550 

Required Equipment 


You can use any alphanumeric terminal for the EDL customization procedures 
described in this manual. You need extended terminal capabilities only if you access an 
application that requires them. For example, the ICEM Solid Modeler application 
requires a graphics capability. 


Ordering Manuals 

Control Data manuals are available through Control Data sales offices or through 
Control Data Corporation Literature Distribution Services (308 North Dale Street, St. 
Paul, Minnesota 55103). 


Submitting Comments 


The last page of this manual is a comment sheet. Please use it to give us your opinion 
of the manual’s usability, to suggest specific improvements, and to report technical or 


CL^XXX^Cll ^XXV/XO. XX L>XX^ WX/XXXXXXC^XXi; OXX^^i; XXCXO CXXX ^cxvxjr X/WWXX 


irnn nnin rr^oil ir/Mii 
** 


comments to: 


Control Data Corporation 

Technology and Publications Division ARH219 

4201 Lexington Avenue North 

St. Paul, Minnesota 55126-6198 

Please indicate whether you would like a written response. 
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System Administration Overview 


This chapter provides an overview of the EDL file structure. It introduces the duties of 
the system administrator and concepts of EDL customization. 


Customizing EDL 

The ICEM Engineering Data Library is a flexible system that can be modified in many 
different ways. To successfully customize EDL you must be thoroughly familiar with 
EDL, NOS 2, FORTRAN, IMF, CYBER Control Language (CCL), and Query Update. 
You are responsible for ensuring that your customizations are well designed and tested. 
Customizations that work incorrectly (or fail to consider all potential impacts) can 
seriously damage your EDL databases or your applications data. 

NOTE 

Control Data cannot guarantee that the customizations you make to one version of 
EDL will automatically operate on subsequent versions of EDL or ICEM applications. 
We consider the impact of changes to customizations and provide conversion procedures 
to upgrade data maintained by standard code. However, normal enhancement, bug fixes, 
and product evolution may result in changes to the database structure and the function 
of code supplied by Control Data. These changes mean that you should re-adapt and 
retest your site-specific code, transaction files. Query Update directives, and CCL 
procedures at every EDL release. 
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Customizing EDL 


There are several ways to customize EDL to fit your site. Each of the following 
customization techniques is described in this manual. 

• Changing, the text displayed by prompts, messages, and menus 

• Reorganizing the EDL task menu structure 

• Adding new applications, file t 3 q)es, and data types 

• Adding or changing engineering categories and their standard attributes 

• Creating new reports or modifying standard ones 

• Creating new FORTRAN modules to perform site-specific functions 

• Creating new procedures to be invoked by EDL 

To change the tasks performed by EDL, you must first change the databases as 
required and then create CCL procedure files and/or a new version of the EDL 
program. 

• Changes to the Message and Task Database (MDB) affect the verbage, structure, 
content, and operation of the user interface. 

• Changes to the Engineering Data Database (DDB) define site-specific notions of data 
and allow you to integrate new applications. 

The EDL system consists of the following four basic files that you can modify to fit 
your needs. 


File Name 

Description 

Til** 

rii. .1 .1 TIT^T . _ - 

oianaara ejuli proceaure me 

E125ABS 

EDL absolute program 

E125MDB 

Message and Task Database 

E125DDB 

Engineering Data Database 

CAUTION 



To prevent serious damage to your EDL database, you should first make all changes to 
a copy of the working database. 

1. Copy your EDL directory structure into a working area. 

2. Make your changes to this copy and test them out. 

3. After testing your changes, implement them on your current databases. 
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System Administrator Tasks Menu 

The System Administrator Tasks menu lists the tasks used for EDL customization. 
SYSTEM ADMINSTRATOR TASKS 


1. EXIT E.EXIT 

2. UPDATE THE MESSAGE AND TASK DATABASE MENUMGMT 

3. UPDATE THE DATABASE WITH BATCH QU INPUT QUBATCH 

4. INTERACTIVE QUERY UPDATE QU 

5. INTERACTIVE MENU MODIFICATION MENUMOD 

6. DISPLAY THE CURRENT EDL EXECUTION STACK STACK 

7. DISPLAY THE CURRENT EDL VARIABLES DISVAR 

The following table summarizes the functions of these system administrator tasks: 


Task Name 

EXIT 

UPDATE THE MESSAGE AND TASK DATABASE 

UPDATE THE DATABASE WITH BATCH QU INPUT 

INTERACTIVE QUERY UPDATE 

INTERACTIVE MENU MODIFICATION 

DISPLAY THE CURRENT EDL EXECUTION STACK 


Description 

Terminates EDL processing of the current 
task and returns control to the previous 
task. 

Lets you customize tasks and messages in 
batch mode. Examples of this t)q>e of 
customization are included in chapter 3. 

Allows you to update the application 
database in batch mode. This procedure is 
discussed in chapter 3. 

Allows you to update the application 
database interactively using Query Update. 

Accesses the interactive MENUMOD utility 
for customizing the Menu and Task 
database. This utility is described in 
chapter 2. 

Displays the current tasks in the execution 
stack. Figure 1-1 shows a sample execution 
stack. 


DISPLAY THE CURRENT EDL VARIABLES Displays variables created by PUTVAR and 

accessible by GETVAR. The PUTVAR 
subroutine is described in chapter 3. Figure 
1-2 shows a sample display produced in 
response' to this selection. 


TASK 

TASK NAME 

SEQUENCE 

TYPE 

NAME 

LAST EDL 

LAST EDL 

10 

TASK MENU 

LASTEDL 

USER 

USER 

10 

TASK MENU 

USER 

SYSADMIN 

SYSADMIN 

10 

TASK MENU 

SYSADMIN 


Figure 1-1. Sample EDL Execution Stack 
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System Administrator Tasks Menu 


NAME 

VALUE 

USR 

EDLID 

HOST 


AUN 


MDB 

E125MDB 

MUN 

E125PRC 

DOB 

E125DDB 

DUN 


EDITOR 

FSE 

DDNVER 

1.62 


Figure 1-2. 


Sample Current EDL Variable Display 
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System Administrator Tasks Menu 


Figure 1-3 shows the hierarchy of tasks you can select from the System Administrator 
Tasks menu. 


1 . 

2 . 

3. 

4. 

5. 

6 . 


1 . 

2 . 

3. 

4. 

5. 


SYSTEM ADMINISTRATOR TASKS 

1. EXIT 

2. UPDATE THE MESSAGE AND TASK DATABASE 
■3. UPDATE THE DATABASE WITH BATCH OU INPUT 

4. INTERACTIVE QUERY UPDATE 

5. INTERACTIVE MENU MODIFICATION 

6. DISPLAY THE CURRENT EDL EXECUTION STACK 

7. DISPLAY THE CURRENT EDL VARIABLES 


E.EXIT 
MENUMGMT 
OUBATCH 
QU 


MENUMOO 

STACK 

DISVAR 


SELECT DATA RETRIEVAL METHOD 


QUERY UPDATE 


1 . EXIT 

2. DATA NAME 

3. CREATOR OF THE DATA 

4. DATA TITLE KEYWORD 

5. DESCRIPTOR 

6. STATUS 

7 . ENGINEERING CATEGORY 

8. APPLICATION DATA TYPE 

9. FILE INFORMATION 
10. OWNER OF THE FILE 

'11. PART INFORMATION 
12. DATES 


E. EXIT 

N. NAME 

C. CREATOR 
T, TITLE 

D. DESCRIPTOR 
S, STATUS 
CAT 

AOT 

F. FILE 

O. OWNER 

P. PART 
DATES 


SELECT PART INFORMATION TYPE 


EXIT 

PART NIHBIER 
PART VENDOR 
PART FAMILY 
PART TITLE KEYWORD 
WHERE USED 


E. EXIT 
N. NUMBER 

V. VENDOR 

F. FAMILY 
T. TITLE 

W. WHERE 


SELECT DATE INFORMATION TYPE 


EXIT 

CREATION DATE 
DATE LAST MODIFIED 
DATE LAST ACCESSED 
RELEASE DATE 


E.EXIT 
C, CREATION 
M. MODIFY 
A. ACCESS 
R. RELEASE 


Figure 1-3. System Administrator Tasks and Secondary Menus 
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Concurrent Database Operations 


Concurrent Database Operations 

Concurrent access allows multiple users to access a database at the same time. To 
provide optimum system performance, the EDL databases handle concurrent access 
differently: 

• The Engineering Data Database permits concurrent access by all users in both 
READ and WRITE modes. 

® The Message and Task Database permits concurrent access only in READ mode. 
Any operations that require changes to the MDB - add, change, or delete - cannot 
be performed while any EDL user is active. Conversely, no normal EDL usage is 
possible until a change operation is completed. 
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System Administrator Tasks Menu 


Figure 1-3 shows the hierarchy of tasks you can select from the System Administrator 
Tasks menu. 


SYSTEM ADMINISTRATOR TASKS 

1. EXIT E,EXIT 

2. UPDATE THE MESSAGE AND TASK DATABASE MENUMGMT 

3. UPDATE THE DATABASE WITH BATCH QU INPUT QUBATCH 

4. INTERACTIVE QUERY UPDATE QU 

5. INTERACTIVE MENU MODIFICATION MENUMOO 

6. DISPLAY THE CURRENT EDL EXECUTION STACK STACK 

7. DISPLAY THE CURRENT EDL VARIABLES DISVAR 


SELECT DATA RETRIEVAL METHOD 


QUERY UPDATE 


EXIT 

DATA NAME 

CREATOR OF THE DATA 
DATA TITLE KEYWORD 
DESCRIPTOR 
STATUS 

ENGINEERING CATEGORY 
APPLICATION DATA TYPE 
FILE INFORMATION 
OWNER OF THE FILE 
PART INFORMATION 
DATES 


E. EXIT 

N. NAME 

C, CREATOR 
T, TITLE 

D. DESCRIPTOR 
S, STATUS 
CAT 

ADT 

F. FILE 

O. OWNER 

P. PART 
DATES 


SELECT PART INFORMATION TYPE 

EXIT E,EXIT 

PART NUieiER N, NUMBER 

PART VENDOR V, VENDOR 

PART FAMILY F, FAMILY 

PART TITLE KEYWORD T, TITLE 

WHERE USED W. WHERE 


SELECT DATE INFORMATION TYPE 


EXIT 

CREATION DATE 
DATE LAST MODIFIED 
DATE LAST ACCESSED 
RELEASE DATE 


E.EXIT 
C, CREATION 
M, MODIFY 
A. ACCESS 
R, RELEASE 


Figure 1-3. System Administrator Tasks and Secondary Menus 
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Concurrent Database Operations 


Concurrent Database Operations 

Concurrent access allows multiple users to access a database at the same time. To 
provide optimum system performance, the EDL databases handle concurrent access 
differently: 

• The Engineering Data Database permits concurrent access by all users in both 
READ and WRITE modes. 

o The Message and Task Database permits concurrent access only in READ mode. 
Any operations that require changes to the MDB - add, change, or delete - cannot 
be performed while any EDL user is active. Conversely, no normal EDL usage is 
possible until a change operation is completed. 
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Setting up the EDL Procedure 

The procedure EDL in E125PRC is the base procedure for all EDL operations. Its basic 

purpose is to attach the EDL program file, execute it, execute the procedure calls 

written on EEEDL2, and loop until the user chooses to quit EDL. 

The procedure header has several parameters, which are all passed to the E125ABS 

execution statement. 

. PROC . EDL , I = INPUT/INPUT , IT=0/IT , OT=0/OT , HOST= , AUN= . 

I Alternate Input File: Specifies an alternate file for input. Default file name: 

INPUT. 

IT Input Trace File Name: Specifies the trace file that records all input entered 

by the user. Default file name: IT. If not specified or IT=0, no input trace is 
created. 

OT Output Trace File Name: Specifies the trace file for all EDL output displayed 

at the terminal and all input entered by the user. Default file name: OT. If 
not specified or OT=0, no output trace is created. 

HOST Host Identification Code: Specifies the mainframe where this version of EDL 
resides. Default is blank. 

AUN Alternate User Name: Specifies the user name for the EDL procedure file 
E125PRC and the absolute E125ABS. If not specified, EDL assumes these 
files are located under the user’s own account. It is good practice to edit the 
procedure header to include a default value here so that users do not need to 
include the AUN parameter on their BEGIN statements. 

You can also include the following parameters on the E125ABS statement: 

L Alternate Output File: Specifies an alternate file for output. Default file 

name: OUTPUT. 

DUN Data Database: Specifies the user name for the Engineering Data Database. 

If not specified, EDL assumes the value specified by the AUN parameter. 

MUN Menu Database: Specifies the user name for the Message and Task Database. 
If not specified, EDL uses the value specified by the AUN parameter. 

ECHO If specified, user input is included in the output file. This parameter is 
generally used for debugging purposes when the output file is renamed. 


Creating Alternate Procedures 

You can write your own procedures to be invoked by EDL. It is suggested that you put 
them on a separate procedure file other than E125PRC. To allow the user to invoke 
them, you need to set up EDL tasks and task processes as explained later. 
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Adding a Directory to E126PRC 


Adding a Directory to E125PRC 

The system can find procedures from a proc file faster if the file has a random access 
directory. We recommend that you use LIBEDIT to build a directory on E125PRC after 
you edit it for any reason. The following example illustrates this procedure. Refer to 
volume 3 of the NOS Version 2 Reference Manual for additional information. 

ATTACH, El 25PRC/M=W. 

GTR , E 1 25PRC , TEMP . PROC/ • 

FSE.TEMP. 

(enter full screen editor conmands) 

(exit the editor) 

LIBEDIT , P=TEMP , N=NEW . 

•BUILD DIR 
REWIND,*. 

C0PYEI,NEW,E125PRC,V. 

Upgrading from EDL 1.2.3 to EDL 1.2.5 

The following steps outline the procedure you should follow to apply your customization 
of EDL 1,2.3 to version EDL 1,2.5. Subsequent chapters of this manual provide 
additional detail about these database customization techiniques. 

1. Install the default EDL 1,2.5 database according to the installation instructions 
provided with your release tapes. 

2. Rerun all Message and Task Database transactions using the MENUMGMT task. 
The structure of the Message and Task Database has not changed. The TITYP field 
is used to control whether a task is allowed to run on a subordinate host in a 
network. Set this field to MASTER on any site-defined administrative tasks that 
can only run on the master machine. 

3. Edit all QU directive files as needed. A few records in the Engineering Database 
have changed, as documented in the database schema definitions listed in appendix 
A. Rerun the QU directives files using the QUBATCH task. 

4. Run the EDL database conversion procedure CONV123. 

5. Edit the source programs for any site-defined OVCAPS. You must replace the 
COMMON block definitions of all DDB records with the new definitions found on 
the EDLCOM file. Several COMMON blocks have changed format and names. 

6. Use the LOADEDL procedure to recompile and load the OVCAPS. 

7. Test everything. 
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Customizing the Plotting Interface 

You must modify the plotting interface supplied on the EDL release tape in order for it 
to work correctly at your site. 

The option menu named PLOTNl shows users which plotters are available at your site. 
You can use the interactive MENUMOD utility described in chapter 2, or the batch 
transaction method descibed in chapter 3 to update this menu. The OVVAL field should 
contain a site-defined destination code that is eventually passed to procedure PLOTN as 
the BEST parameter when a user chooses a plot destination. 

Procedure PLOTN in E125PRC is designed to convert a neutral picture file (NPFILE) 
to a plotter-specific representation and route it to the plotter. You must edit this 
procedure to execute UNIPOST with the correct directives for the specific plotters at 
your site, and to route the plot file to the correct plotter based on the value of the 
BEST parameter. Refer to the UNIPLOT manual for details about the appropriate 
directives for your plotters. 
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The overall control and user dialog in EDL is defined by the Message and Task 

Database, also called the Menu Database (MDB). The records in this database contain 

the definitions of all messages, prompts, menus, and tasks used by EDL. 

Record 

Name Description 

MH Message help records specify the help text for a message. 

MI Message information records are the header record for all prompts, menus, 

and error messages. 

OK Option keyword records specify keywords that may be used to select an 

option menu line. 

OM Option menu records contain the text displayed on option menu lines. 

OV Option value records specify the value returned to the program when a 

user selects an option from an option menu. 

TC Task command records specify the commands used to invoke tasks. 

TI Task information records serve as headers for EDL tasks. 

TM Task menu records contain the text displayed on task menus. 

TP Task process records specify the processes executed sequentially when a 

task is invoked. 

TV Task parameter value records specify the parameters passed to CCL 

procedures and overlay capsules (OVCAPS) when they are executed as EDL 
task processes. There are six types of parameters, differentiated by the 
TVTYP field of the TV record: 


CONSTANT 

PROMPT 

NULL 


Passes a constant to the process. 

Prompts the user for the value of the parameter to be 
passed to the process. 

Passes the process a null value. (Simulates a carriage 
return.) 


VARIABLE Passes the value of an. EDL global variable to the process. 

An EDL global variable must be previously set by a 
subprogram that uses the PUT VAR subroutine. 


1. Refer to record schemata in appendix A for a complete description of EDL record types. 
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Using MENUMOD 


CONFIG Passes a parameter value based on the contents of the 

application configuration (AC) records, application 
information (AI) status (must be ACTIVE), and the user’s 
current terminal configuration. 

TRANSFER Passes the set of all variables required for a transfer. 

There are two ways to modify the Message and Task Database. Which method you 
choose depends somewhat on the complexity of the changes you want to implement. 

o You can use the interactive MENUMOD utility described in this chapter for simple 
modification of menus, prompts, and messages. 

o More complex customization may require the preparation of a batch transaction data 
file, OVCAP, and procedure files; this method is described in chapter 3. 

Using Query Update, you can invoke several report tasks to produce listings of the 
contents of the MDB. 


Using MENUMOD 

MENUMOD is an interactive utility for modifying the EDL Message and Task 
Database. You invoke it by selecting 5. INTERACTIVE MENU MODIFICATION from 
the System Administrator Tasks menu or by entering the MENUMOD command from 
any task menu. This produces the Interactive Menu Modification menu shown below. 


INTERACTIVE MENU MODIFICATION 


1 . 

EXIT 

E.EXIT 

2. 

MODIFY OR ADD A TASK 

TASKMOD 

3. 

MODIFY OR ADD A TASK MENU 

TMENUMOD 

4. 

MODIFY OR ADD AN OPTION MFNIJ 

OMPNIIMOn 

5. 

MODIFY A MESSAGE 

MESSAGEMOD 

6. 

BATCH MENU MODIFICATION 

MASSMOD 


ENTER TASK 
? 


The tasks selectable from this menu let you add, change, or delete tasks, task menus, 
option menus, error messages, prompts, and informative messages. A local file called 
MASSMOD records the final image of any changes you make using MENUMOD. 

CAUTION 


In order to use MENUMOD, your database must be opened exclusively. To avoid 
damaging your current system, you should first make all changes to a copy of the 
working database. 


The following steps outline the general procedure for using MENUMOD. 

1. Select one of the MENUMOD tasks. 

2. Enter the name of the structure you want to change. In response, the system writes 
the current information of the structure to a file and invokes your editor to display 
this file for modification. 
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Modiiying a Task 


3. Use your cursor keys and text editor commands to make your changes to the file. 
Modifications made using MENUMOD do not require a strict fixed-column format; 
however, you must separate fields by at least two spaces. You can create new tasks, 
menus, or messages by renaming an existing structure and modifying it accordingly. 

4. If you elect to save your modified information, MENUMOD changes the EDL 
Message and Task Database, replacing the previous information. The system 
automatically appends images of your changes to the file MASSMOD. 

The remaining sections in this chapter provide additional information about each of the 
MENUMOD tasks and examples of their use. The descriptions of the MENUMOD 
screen lines reference corresponding record fields (TITNA, TIDSC, and so on). Refer to 
the database schemata in appendix A for a complete description the EDL record 
formats. 

Modifying a Task 

When you select 2. MODIFY OR ADD A TASK from the Interactive Menu Modification 
menu or enter the TASKMOD command, MENUMOD extracts a task in the following 
format: 

taskname 

DESCRIPTION: task description 
SECURITY CATEGORY: category 
TYPE : MASTER or blank 
COMMANDS : conmancll co(nmand2 
PROCESS : process type process name 

PARAMETER : parameter name parameter type parameter value 
Line Description 

1 10-character task name (TITNA). 

2 70-character task description (TIDSC). The labels on lines 2 through 5 are only 
for ease in task modification. If the line contains a colon (:), the system 
ignores everything up to that colon and interprets the remaining text 
(excluding leading blanks) as your input. 

3 10-character task security code (TISEC). If TISEC is blank, this task is 
available to all users. If this field is not blank, users can only execute this 
task if they are members of a group with the specified security code. 

4 10-character task t 3 q)e (TITYP). This field reads MASTER if EDL is running in 
a network and if the task is one that should only be run on the master host; 
otherwise, the field is blank. Even if blank, MENUMOD reserves line 4 of the 
task image for the task t 3 npe. 

5 10-character task commands (TCCMD) used to invoke the procedure. Each 
command must be separated by at least two spaces. 

6-f Subsequent lines list task processes (TP records) such as OVCAPS, CCL 

PROGS, task menus or tasks, or task parameter values (TV records). These 
two records are differentiated by the first two letters of the line (excluding 
leading blanks). Task processes require a 10-character process type (TPTYP) 
and 10-character process name (TPNAM); optionally, they can also include a 
10-character file name (TPFNA) and 10-character user name (TPFUN). 
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Modifying a Task Menu 


For example, if you chose to modify the task for retrieving ICEM DDN data 
(RETDDN), MENUMOD would extract and display the image in figure 2-1. 


DESCRIPTION: RETRIEVE ICEMDDN DATA 
SECURITY CATEGORY: 

TYPE (MASTER OR BLANK) 


COMMANDS : 

RETDDN 



PROCESS: 

OVCAP 

XRETREV 


PARAMETER 

ADT 

CONSTANT 

DRAWING 

PARAMETER 

ADT 

CONSTANT 

GLOBAL DRAWING 

PARAMETER 

SELECT 

CONSTANT 

LOCAL 

PARAMETER 

INTENT 

CONSTANT 

W 

PROCESS: 

OVCAP 

XGETAPN 



Figure 2-1. Using MENUMOD to Extract a Task 


CAUTION 

If your modification of a standard EDL task significantly changes its function, you 
might encounter compatibilty problems on subsequent releases of EDL or ICEM 
applications. Instead, we recommend that you create new tasks to satisfy your 
requirements; refer to "Adding a New Task" in the examples at this end of this 
chapter. 


Modifying a Task Menu 


When you select 3. MODIFY OR ADD A TASK MENU from the Interactive Menu 


Modification menu or enter the TMENUMOD command. 


MENUMOD extracts a task 


menu in the following format: 


task menu name 

task menu header 

task menu text task name 


Because the format of a task menu is simpler than that of a task, there are no labels. 
Line Description 

1 10-character task menu name (TMMNA). 

2 70-character task menu header (MITTL). 

3+ Each subsequent line contains two fields: 

• 40-character menu text (TMTXT). 

• 10-character task name (TMTNA) separated from the menu text by at least 
two spaces. 

NOTE 

Be sure to use the actual task name here, not the name of the command 
that calls the task. 
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Modifying an Option Menu 


For example, if you chose to modify the USER task menu, MENUMOD would extract 
and display the image shown in figure 2-2. 


USER 

USER TASKS 

EXIT 

EXIT-TASK 


ICEM APPLICATIONS 

ICEM 


RETRIEVE ENGINEERING DATA 

RETRIEVE 


TRANSFER ENGINEERING DATA 

TRANSFER 


RELEASE ENGINEERING DATA 

RELEASE 


FILE MANAGEMENT 

FIMGMT 


UPDATE EDL FOR ENGINEERING DATA 

UPDATE 


USER PROFILE 

USERINFO 


REPORTS 

REPORTS 


JOB QUEUE CONTROL 

QUEUE 


PART STRUCTURE MANAGEMENT 

STRUCTURE 


Figure 2-2. Using MENUMOD to Extract a Task Menu 

Modifying an Option Menu 

When you select 4. MODIFY OR ADD AN OPTION MENU from the Interactive Menu 
Modification menu or enter the OMENUMOD command, MENUMOD extracts an option 
menu in the following format: 

option menu name 
option menu header 

option menu text option keyword option value 
The option menu extraction format is much like the task menu format. 

Line Description 

1 10-character option menu name (OMMNA). 

2 70-character option menu header (MITTL). 

3+ Each subsequent line contains menu detail consisting of three different fields: 

• 40-character option menu text (OMTXT). 

• 10-character option keyword(s) (OKKEY) separated from the menu text by 
at least two spaces. If there are multiple keywords, separate them by 
commas, just as they appear on the menu display. 

• 40-character option value (OVVAL) separated from the option keyword(s) by 
at least two spaces. 

For example, if you chose to modify the option menu for retrieval methods (EXTRAC), 
MENUMOD would extract and display the image shown in figure 2-3. 
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Modifying a Message 


EXTRAC 



SELECT DATA RETRIEVAL METHOD 



EXIT 

E.EXIT 

EXIT 

data NAME 

N , N.AME 

N.AME 

CREATOR OF THE DATA 

C, CREATOR 

CRE 

DATA TITLE KEYWORD 

T, TITLE 

TITLE 

DESCRIPTOR 

D, DESCRIPTOR DESC 

STATUS 

S, STATUS 

STA 

ENGINEERING CATEGORY 

CAT EDT 

APPLICATION DATA TYPE 

ADT ADT 

FILE INFORMATION 

F,FILE 

FILE 

OWNER OF THE FILE 

0, OWNER 

OWNER 

PART INFORMATION 

P , PART 

PART 

DATES 

DATES 

DATE 


Figure 2-3. Using MENUMOD to Extract an Option Menu 


Modifying a Message 

When you select 5. MODIFY A MESSAGE from the Interactive Menu Modification 
menu or enter the MESSAGEMOD command, MENUMOD extracts a message in the 
following format: 


message name message type 
message text 
message help 


Line Description 


1 lO-character message name (MIMNA) follovved by the 10-character message 
t 5 T)e (MITYP). The message t 3 T)e can be PROMPT, ERROR, or MESSAGE. 

2 70-character message text (MITTL). 

3+ Subsequent 70-character lines of text (MHTXT) specify HELP text for the 
message. 


For example, if you chose to modify the EXTNAMl prompt, MENUMOD would extract 
and display the image shown in figure 2-4. 


EXTNAMl PROMPT 

ENTER THE DATA NAME OR CR TO RETURN 

EDL WILL GENERATE A LIST OF ALL DATA NAMES WHICH BEGIN WITH THE 
CHARACTERS YOU ENTER. FOR EXAMPLE, IF YOU. ENTER "ENGINE", EDL WILL 
INCLUDE DATA NAMES "ENGINE-HOUSING" AND "ENGINEER". 

A CARRIAGE RETURN WILL RETURN TO THE RETRIEVAL METHODS MENU. 


Figure 2-4. Using MENUMOD to Extract a Message 
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Using MASSMOD for Batch Modifications 

MENUMOD uses a local file named MASSMOD to record the images of your 
interactive Menu Database modifications. A one-line header ****type identifies the 
image as a TASK, OMENU, TMENU, or MESSAGE modification. You can save 
MASSMOD in EDL under the application data type MDB Images. This allows you to 
re-apply your customizatiOns of the Menu Database when you upgrade to a new version 
of EDL, or allows you to apply the same changes to other copies of the Menu Database 
running on your system. 

The MASSMOD command functions in the same manner as the MENUMGMT 
command. When you select 6. BATCH MENU MODIFICATION from the Interactive 
Menu Modification menu or enter the MASSMOD command, you are asked to select the 
file of images from the standard retrieval list. As MASSMOD executes, it displays the 
header lines on your terminal. 

The following steps describe the procedures involved in batch modification using 
MASSMOD. 

1. EDL must know about the image file. Use the ADDINFO command to update the 
EDL database using the application data type: EDL MDB IMAGES. 

2. Enter the MASSMOD command. 

3. Select the image data from the standard retrieval list. EDL displays the ••••type 
header for each image processed. When complete, EDL returns to the previous task 
menu. 
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Keeping Track of Your Changes 

After modifying the Message and Task Database you might want to generate a new 
EDLLIST file to reflect your changes. The following example shows how to add the 
EDLLIST generator to your EDL system. 

1. The source for the EDLLIST generator is supplied to you in the file MOUT. 
Compile this file using the following commands: 

GET. MOUT. 

FTN5 , I «MOUT , B»MOUTB . L=MOUTL . 

The compiled routine is put on the file MOUTB. 

2. Create and save the following OVCAP: 

OVCAP . 

SUBROUTINE XMOUT 
CALL MOUT 
RETURN 
END 

For this example, the file is saved on OVMOUT. 

3. Put the MOUT routine (on file MOUTB) into a library using the following 
command: 

LIBGEN , F=MOUTB , P=LIBR 

4. Enter the following statement to create a new EDL program: 

BEGIN , LOADEDL , E 1 25PRC , OVMOUT , LIBR 
This generates the new file E125ABS. 

5. Create a task to generate the EDLLIST file using TASKMOD. This example uses 
the existing task called STACK. 

The original task looks like this: 

STACK 

DESCRIPTION: DISPLAY THE EDL EXECUTION STACK 
SECURITY CATEGORY: 

TYPE (MASTER OR BLANK): 

COMMANDS : STACK 

PROCESS: OVCAP XDISSTK 

Use your editor to modify the task as follows: 

EDLLIST 

DESCRIPTION: LIST THE EDL MENU DATABASE 
SECURITY CATEGORY: SYSADMIN 
TYPE (MASTER OR BLANK): 

COMMANDS: EDLLIST 

PROCESS: OVCAP XMOUT 

6. When you execute the EDLLIST task it generates a local file called EDLLIS. The 
file is called EDLLIS to avoid confusion with the EDLLIST file supplied with the 
EDL release. 
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Examples 

The following examples illustrate the use of MENUMOD tasks in database 
customization. 


Changing a Prompt 

You might want to change the wording of an EDL prompt to satisfy site-specific needs. 

For example, if your site uses the term Engineering Change Notice (or ECN) rather 

than Engineering Change Order (ECO) as used in EDL Part Structure, you would take 

the following steps to change it: 

1. Select 5. MODIFY A MESSAGE from the Interactive Menu Modification menu, or 
enter the MESSAGEMOD command from any task menu. 

2. When prompted for the name of the message to modify, enter the message name 
PSADD3. In response, the system invokes your editor and displays the following 
file: 

PSADD4 PROMPT 

ENTER THE ECO FOR THE REVISION OR CR TO RETURN 

ENTER THE ENGINEERING CHANGE ORDER IDENTIFIER WHICH CAUSES THIS 

PART REVISION TO BE CREATED. THIS FIELD IS REQUIRED. 

3. Use your editor to change ECO to ECN, and the phrase ENGINEERING CHANGE 
ORDER IDENTIFIER to ENGINEERING CHANGE NUMBER. The resulting file 
looks like this: 

PSADD4 PROMPT 

ENTER THE ECN FOR THE REVISION OR CR TO RETURN 

ENTER THE ENGINEERING CHANGE NUMBER WHICH CAUSES THIS 

PART REVISION TO BE CREATED. THIS FIELD IS REQUIRED. 

4. After you exit your editor, the system asks: 

DO YOU WISH TO CONTINUE WITH THIS MESSAGE MODIFICATION? 

Your changes are added to the Menu Database only if you enter YES. 


Removing a Prompt from a Task 

If you are not running EDL in a network, you might not want to be prompted for a 
host name every time you update EDL with new data. The following example shows 
you how to remove that prompt. 

1. Select 2. MODIFY OR ADD A TASK from the Interactive Menu Modification menu, 
or enter the TASKMOD command from any task menu. 
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Adding a New Task 


2 . 


When prompted for the name of the task to modify, enter the task name 
ADDINFO. In response, the system invokes your editor and displays the following 


file; 


DESCRIPTION: ADD EDL INFORMATION FOR ENGINEERING DATA 
SECURITY CATEGORY: 

TYPE (MASTER OR BLANK): 

COMMANDS: ADDINFO 

PROCESS: OVCAP XUPDADD 

3, Use your editor to add a task parameter with the same name as the prompt you 
want to remove, and a parameter type of NULL, The resulting file looks like this: 

ADDINFO 

DESCRIPTION: ADD EDL INFORMATION FOR ENGINEERING DATA 
SECURITY CATEGORY: 

TYPE (MASTER OR BLANK): 

COMMANDS: ADDINFO 

PROCESS : OVCAP XUPDADD 

PARAMETER : UPADD3 NULL 

4. After you exit your editor, the system displays the following prompt: 

DO YOU WISH TO CONTINUE WITH THIS TASK MODIFICATION? 

Your changes are added to the Menu Database only if you enter YES. 


Adding a New Task 


The TASKMOD task is used to modify or add a task. By modifying TASKMOD, you 
can create a task that allows a user to look at the structure of a task, but not to 
change it. The following steps describe how to implement this change. 


1. Select 2. MODIFY OR ADD A TASK from the Interactive Menu Modification menu, 
or enter the TASKMOD command from any task menu. 

2. When prompted for the name of the task to modify, enter the task name 
TASKMOD. In response, the system invokes your editor and displays the following 
file: 


TASKMOD 

DESCRIPTION: MODIFY OR ADD AN EDL TASK 
SECURITY CATEGORY: SYSADMIN 
TYPE (MASTER OR BLANK) 

COMMANDS: TASKMOD 


PROCESS: OVCAP 
PROCESS: CCL PROC 
PARAMETER : EDITOR 
PARAMETER : LFN 
PROCESS : OVCAP 


XDISTSK 

EDIT 

VARIABLE 

VARIABLE 

XADDTSK 


EDITOR 

EDITF 


3. Use your editor to make the following changes: 

a. Change the name and command from TASKMOD to TASKLOOK. By changing 
the task name, you create a new task; the old task (TASKMOD) remains 
unchanged. 
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Adding a Task with an OVCAP 


b. Remove the last OVCAP (ADDTSK), which is the one that actually performs the 
update of the Menu Database. 

The resulting file looks like this: 

TASKLOOK 

DESCRIPTION: LOOK AT AN EDL TASK 
SECURITY CATEGORY: SYSADMIN 
TYPE (MASTER OR BLANK) 

COMMANDS: TASKLOOK 

PROCESS: OVCAP XDISTSK 

PROCESS: CCL PROC EDIT 

PARAMETER: EDITOR VARIABLE EDITOR 

PARAMETER: LFN VARIABLE EDITF 

4. After you exit your editor, EDL asks you: 

DO YOU WISH TO CONTINUE WITH THIS TASK MODIFICATION? 

Your changes are added to the Menu Database only if you enter YES. 


Adding a Task with an OVCAP 

A slightly more complex task might involve adding a user defined OVCAP.^ For 
example, to add a task that would list all EDL IDs and their names sorted by last 
name, you would take the following steps. 

NOTE 

Before beginning this example, make sure that you first back up the current E125ABS. 


1. Write the OVCAP and include the UI COMMON block from file EDLCOM, as 
shown in the following example. 

OVCAP . 

SUBROUTINE LISTID 
C 

C THIS ROUTINE LISTS ALL EDL USER ID'S SORTED BY THE USER'S 
C LAST NAME 
C 

COMMON / UI / UIUSR ,UIPWD ,UISTA .UIFIN .UIMIN 

*,UILNA .UISTR ,UICTY ,UIPHO .UITTL .UIDPT .UICMD 
*,UIDELD .UIDELS .UIEDT 

CHARACTER UIUSR •lO.UIPWD •lO.UISTA *10, UIFIN *10 
*, UIMIN *10,UILNA *10, UISTR *70,UICTY •70,UIPHO *20 
*, UITTL *40, UIDPT *20, UICMD *10,UIDELD *1, UIDELS *1, UIEDT *10 
LOGICAL OK 
CALL IBFUIl(OK) 

100 IF(OK)THEN 

PRINT*, UIUSR, UILNA, UIFIN, UIMIN 
CALL IBNUIl(OK) 


2. OVCAPS are further explained in chapter 3 of this manual. 
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GO TO 100 
ENDIF 
RETURN 
END 

2. Run the procedure LOADEDL to insert your routine into the EDL program. For 
example, if you placed the OVCAP on file LISTID, you would t5rpe: 

BEGIN , LOADEDL , E 125PRC , LISTID 

This procedure is described in greater detail in the example "Adding a Task to 
EDL" in chapter 3. 

3. Select 2. MODIFY OR ADD A TASK from the Interactive Menu Modification menu, 
or enter the TASKMOD command from any task menu. 

4. When prompted for the name of the task to modify, enter an existing task name; 
for example, RETDDN. In response, the system invokes your editor and displays the 
following file: 

RETDDN 

DESCRIPTION: RETRIEVE ICEMDDN DATA 
SECURITY CATEGORY: 

TYPE (MASTER OR BLANK) 


COMMANDS: 

RETDDN 



PROCESS : 

OVCAP 

XRETREV 


PARAMETER 

ADT 

CONSTANT 

DRAWING 

PARAMETER 

ADT 

CONSTANT 

GLOBAL DRAWING 

PARAMETER 

SELECT 

CONSTANT 

LOCAL 

PARAMETER 

INTENT 

CONSTANT 

W 

PROCESS : 

OVCAP 

XGETAPN 



5. Use your editor to change the task name and remove all but the first OVCAP, 
which you rename LISTID. You would probably also want to set the security 
category to at least ADMIN. The resulting file looks like this; 

LISTID 

DESCRIPTION: LIST EDL ID'S 
SECURITY CATEGORY: ADMIN 
TYPE (MASTER OR BLANK) 

COMMANDS: LISTID 

PROCESS: OVCAP LISTID 

6. After you exit your editor, EDL asks you: 

DO YOU WISH TO CONTINUE WITH THIS MESSAGE MODIFICATION? 

Your changes are added to the Menu Database only if you enter YES. 
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This chapter discusses customizations to EDL that involve the Engineering Data 
Database (DDE). This database contains all the information about EDL users, 
applications, files, and data. In addition to the changes made to the Engineering Data 
Database in the course of normal EDL operation, you can use Query Update to update 
certain DDE records. You can also write customized EDL code to read and manipulate 
the data contained in these records. 

Customizing EDL Using Engineering Data Records 

This section describes the DDE record types that you can update with Query Update to 
customize EDL. Other record types in the Engineering Data Database are updated by 
the system when users run EDL; refer to "Records Updated by EDL" later in this 
chapter for a description of these records. Refer to appendix A for a complete 
description of EDL record types. 

Record 

Name Description 

AC Application configuration records define parameters to be passed to an 

application depending on the terminal’s configuration. 

AI Application information records define the application systems under EDL 

and indicates which version is active. 

AT Application data type records describe the types of data managed by EDL. 

CL Communication link records specify RHF connections. 

EA Engineering attribute records specify the standard attributes your users 

will be prompted for when updating EDL information for engineering data. 

ET Engineering category records define the engineering categories that you 

establish at your site. Engineering categories provide a way to describe 
and separate your engineering data based on how it is used. 

FT File type records describe the types of files managed by EDL. 

HI Host information records specify the host family codes of computer systems 

that contain data you want to record in EDL. 

RT Release transfer records specify allowable transfers during the engineering 

data release process. 

TT Transfer and translation task records specify allowable data transfers and 

the tasks used to perform the transfer. 

UM Units of measure records define valid codes or abbreviations for the units 

of measure field in PS records. 
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Ordering Your Changes 

The definition of the database imposes constraints on the records and requires that you 
make your changes in a definite order. Appendix A contains the database schemata for 
EDL; these schema diagrams specify the record interdependencies that control the order 
of changes. You must be aware of these database constraints and record 
interdependencies before making changes that involve the Engineering Data Database. 
The order for adding entries is as follows: 

AI 

AC 

ET 

EA 

FT 

AT 

TT 

RT 

HI 

CL 

UM 

Reverse the order for this list when deleting entries. 

Setting Engineering Categories and Standard Attributes 

Before data can be added to EDL, it must have an engineering category code. This 
code is stored in the ETEDT field of the engineering category (ET) record. These 
20-character engineering category codes are completely site-defined. Their purpose is to 
enhance the description and retrieval of engineering data. EDL and its application 
programs function the same regardless of the category assigned to the data. 

You can also set up data descriptors to aid in describing and retrieving the data. A 
descriptor is a pair of character strings associated to the data, a 20-character attribute 
name and a 40-character attribute value. For example, a user may ask for attribute 
name = PROJECT CODE and attribute value = TllO to retrieve all permitted data 
for the TllO project. 

You can associate one or more standard attribute names to an engineering category. 

The system can then prompt your users to enter values for each of these attributes 
when they update EDL data descriptors. Setting up standard attributes does not restrict 
users to just those standards. In special cases, users may want to enter a descriptor 
with a nonstandard attribute name. In general, however, users should be encouraged to 
use the standard attribute prompting feature and to take some care to use consistent 
attribute values. Attributes are a means of keeping track of data; your operational 
policies are the only means of keeping track of attributes. 

The following example shows how you can set up engineering categories and standard 
attributes by using Query Update to update the ET and EA records in the database. 

STORE SETTING ETEDT 
$ $ 

$EDL SYSTEMS 
$PREPRODUCTION$ 

$PRODUCTION$ 

$TOOLING$ 

•END 
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STORE SETTING EAEDT EAATR 
$PREPRODUCTION$ $PROJECT CODES 
SPRODUCTIONS SPRODUCT LINES 
STOOLINGS STOOL TYPES 

•END 

After these records have been added, the system automatically prompts the user for the 
corresponding attributes (ATR) of the specified engineering category. For example, if 
the user specified the engineering category PRODUCTION, EDL prompts for a 
descriptor value for the attribute name PRODUCT LINE. These trivial categories and 
attributes are installed as part of standard EDL and should be adapted to fit the 
environment at your site. 

Records Updated by EDL 

The DDE records described in this section are updated by the system in the course of 
normal EDL usage. Although you cannot directly update these records, you can write 
customized code to read and manipulate the data they contain. You can also use Query 
Update to invoke several report tasks that produce listings of the contents of these 
records. 

Record 

Name Description 

DD Data descriptor records establish attribute/value pairs for EDL data. 

DF Default file records specify files that must automatically attach when a 

user enters the specified application. 

DI Engineering data information records establish data managed by EDL. 

DR Data required records relate data sets that must be available to complete 

the current data. 

DS Data source records relate data sets from which the current data was 

derived. 

FD Family definition records relate family codes and engineering data. 

FI File information records establish files to be managed by EDL. 

FM Family information records associate family codes to part numbers. 

FP File permit records are produced by Group Permit and User Permit 

records. 

GI Group information records define groups of EDL users. 

GM Group member records establish members for previously defined EDL 

groups. 

GP Group permit records establish file permits for groups. 
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Record 

Name 

GS 

HI 

ME 

ML 

MN 

PD 

PF 

PI 

PP 

PR 

PS 

PV 

RA 

RP 

RR 

RS 

RU 

UC 

UI 

UP 

uv 

VI 


Description 

Group security authorization records specify task category authorization for 

gTGiIp IXiGITlijcrS. 

Host information records. 

Message records define messages sent by a user. 

Message line records define user message text. 

Message instance records define users receiving messages and indicate 
whether the message has been read. 

Parts data records relate engineering data and part revisions. 

Parts family records relate part numbers to family codes. 

Parts information records establish EDL part numbers. 

Pending permit records contain file access information and issue operating 
system permits when the owner of the file logs into EDL. 

Part revision records define revision levels for each part. 

Part structure records define the structure of part assemblies. 

Parts vendor records relate part numbers and vendor codes. 

Release authorization records establish release information for engineering 
data sets. 

Release procedure records establish the site-defined release procedures for 
engineering data. 

Review responsibility records define reviewers and review order for each 
release procedure. 

Release signature records establish the stamp that each reviewer puts on 
data after completing review. 

Releaser records define releasers for each release procedure. 

User configuration records define valid terminal configuration attribute 
states. 

User information records establish EDL users and all relevant information 
about them. 

User permit records establish individual user file permits. 

User validation records track which users are validated to use EDL on 
each host. 

Vendor information records associate vendor names and vendor codes to 
EDL part numbers. 
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EDL Global Variables 

A global variable is a mechanism that EDL uses to pass values between subprograms. 
Each variable is identified with a 10-character name and can contain an 80-character 
value. You set the value of a variable using the PUT VAR subroutine. The value of the 
global variable stays in effect until the variable is redefined or EDL ends. Refer to 
"Utility Routines" later in this chapter for additional information about the PUTVAR 
subroutine. 

The following table lists the global variables that EDL defines at startup. 

Variable Description 

USR EDL ID of the running user 

HOST Host code of the computer system on which the user is running 
AUN User name of the EDL absolute (E125ABS) 

MDB File name of the Message and Task Database 

DDB File name of the Engineering Data Database 

MUN User name of the Message and Task Database 

DUN User name of the Engineering Data Database 

Other global variables are set by data retrieval and transfer subprograms; these are 
listed in the following table. 

V ariable Description 

EDN Internal engineering data number (EDN) of the last data selected to be 

retrieved or transferred 

PFN Path file name of the last data selected 

UN Operating system user name 

NAMEl 70-character data name 

SHEET Secondary ID 

I Name of a file containing the data name and secondary ID 

PFN2 Path file name of the destination file 

UN2 Operating system user name of the creator of the destination file 

RENAME Y if the user wants to give the transferred data a different name, 

otherwise N 

NAME12 70 characters of the new data name 
SHEET2 New secondary ID 

J Name of a file containing the new data name and secondary ID 

Other parts of the EDL system use other global variables to communicate data between 
subprograms and procedures. 
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Using FORTRAN Interface Modules 

This section describes the interface modules you can call from your own OVCAPS. 
OVCAPS are FORTRAN programs called by the task protocol of an EDL task to 
perform the following functions: 

® Make calls to display messages, prompts, or Option menus 

• Store data in the Engineering Database 

• Manipulate existing data in the Engineering Database 

Creating an OVCAP 

You must create an OVCAP that specifies the name of the routine you want to add. 

For example, if you were adding a routine call MYROUT, the relevant OVCAP would 
appear as follows: 

OVCAP . 

SUBROUTINE XMYROUT 
CALL MYROUT 
RETURN 
END 

This procedure is illustrated in the example "Adding a Task to EDL" at the end of this 
chapter. 

Using Information Base (IB) Routines 

Information Base routines allow EDL overlay capsules to perform database accesses and 
updates at the record level. All IB routines communicate with the EDL databases via 
COMMON blocks. For example, you need to take the following steps before storing a 
file information (FI) record: 

1. Copy the FI COMMON block into your routine from the file EDLCOM. 

2. Set all values (FIFIL, FIPFN, FIFUN, FIUSR, FISTA, and FIVSN). 

3. Call the appropriate IB routine for storing the FI record: IBSFI. 

IB routines can be grouped according to their function as follows: 

IBSxx Store record xx 

IBMxx Modify record ocx 

IBDxa; Delete record xx 

IBOxxn Obtain record xx via access path xxn 

IBAa:a:n (Approximate) Obtain record xx or next higher via access path xxn 
IBErrn (Equivalent) Obtain the next duplicate record xx via access path xx 
IBFxxn Obtain the first xx record ordered by access path xxn 

IBNxxn Obtain the next xx record ordered by access path xxn 
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Obtain the first member within coset xxyy 
IBNxx 3 ' 3 ' Obtain the next member within coset xxyy 

Replace the xx value in your IB calls with the 2-character name of the database table 
you want to refer to. Replace the n and yy values with the names of the access path or 
coset. Appendix B contains detailed definition of the EDL IB routines. 

Additional IB routines with specific functions include the following: 

IBCCMT Commit a concurrency parcel 

IBCDRP Drop a concurrency parcel 

All IB routines return a logical argument STATOK that is TRUE if the operation 
succeeded, FALSE if it failed. 

Declaring Variables 

If you call an IB routine, you must declare the variables used to contain the data 
fields managed by that module. The file EDLCOM contains a set of FORTRAN 
COMMON decks that simplify variable declaration. 

• There is a file for each t 3 T)e of data record. Each file is named with the 2-character 
name of the record. You must include the appropriate file for every record you 
reference. 

® There is a variable for every data field of the record. The variables are allocated to 
a labeled COMMON with the same name as the 2-character record name. Any of 
your own code that accesses the database variables, whether it calls an IB module 
or not, must include the appropriate COMMON deck. 

When you retrieve data, you only need to set those variables that make up the 
retrieval key. For example, if you retrieve a user information (UI) record, you need 
only set the UIUSR field. After you call IBOUIO, all of the other fields in the UI 
common block will be filled. 

The following sections of this chapter describe the use of IB routines in obtaining, 
storing, modifying, and deleting records. 

Obtaining Records 

You cannot unconditionally add a record to the EDL database. You must first attempt 
to obtain a record with the desired key fields, then call either an IBS routine if the 
record doesn’t exist, or an IBM routine if the record does exist. For example, if you 
want to associate DIEDN number 27 to PROJECT 1031518 via the data description 
(DD) record, you would take the following steps: 

1. Set DDEDN to 27 and DDATR to PROJECT. 
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2. Call IBODD3 to determine if another PROJECT is already assigned to DDEDN 
number 27. 

a. If a PROJECT already exists for record 27, the logical status code (STATOK) 
will be TRUE. 

1) Set DDVAL to 1031518. 

2) Call IBMDD to modify the existing data description. 

b. If DDEDN number 27 does not already have a PROJECT, STATOK is returned 
as FALSE. 

1) Set DDVAL to 1031518. 

2) Call IBSDD to store the new data description. 

Five tjTjes of IB routines let you obtain records from the database: IBO, IBA, IBE, 
IBF, and IBN. Each of these obtain routines accesses records differently. The following 
paragraphs describe these obtain routines in detail. 


Using IBO Routines 

The record retrieved by an IBO routine is the first record in the database that meets 
the retrieval criteria. If you continue to call an IBO using the same key, you will 
continue to get the same record. Instead, you should use an IBE routine to move 
through the database. Access path IBOxxO is always the primary key for the record. 
An IBOncO call retrieves only that record in the database that meets the criteria set 
by the xxO path; therefore, an IBExxO will always return a STATOK value of FALSE. 


Other access paths may retrieve more than one dataset, depending on whether those 
iiolds iDGGii cGn3trs.iri0ci to be iimcjuG. For cXaixiplc, you could ussociutc tbs ds.ts. in 


the preceding example to more than one project, and retrieve each by calling IBODD3 
followed by IBEDD3 until STATOK is returned as FALSE. 


An example of a secondary, but unique, key is made up by the DIFIL, DINAM, and 
DISID fields. The schema charts in appendix A indicate unique fields by the solid 
arrow lines above them. These arrows (called "uniqueness constraints") mean that the 
fields taken together form a unique key for a record, as shown in figure 3-1. 
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Figure 3-1. Unique Keys are Identified by the Solid Arrow Line 
Using Access Paths 

Each access path retrieves records via a different key. For example, if you set DIUSR 
equal to JONES and called IBODI6, you would obtain the first data record in the 
database where the DIUSR field is equal to JONES. To obtain further records related 
to JONES, you would use the equivalent call: IBEDI6. 
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Refer to schema charts in appendix A for record access paths. In order to use an 
access path, you must set each field used in the access path to the desired value. If 
you do not set the value of a field, you will most likely be using an old value, and you 
will not get the results you expect. On the schema chart, an access path containing 
fields in parentheses indicates that these fields need not be preset. The fields in 
parentheses are there to indicate the order in which duplicate records along the access 
path are sorted; the system ignores any preset values for these fields. 

Obtaining Approximate Records (IBA) 

IBA routines obtain the specified record or the next higher record via access path xxn. 
You should use IBA routines to initialize database retrievals at a given position in the 
database. 

For example, you could call IBADIl to retrieve data by data name. 

1. Enter a partial data name. 

2. Set DIN AM to that value. 

3. Call IBADIl. 

The IBA routine merely finds the record that begins with, or is higher alphabetically 
than, the DINAM field. Your program must go on to determine whether or not the 
returned record meets the entered criteria. The program should next call an IBN 
routine to get the next record in the database, and again check against the entered 
criteria. In this example, you could not use an IBE routine because IBE, like IBO, 
looks for exact matches against the key values. 

A loop to print the names of all pieces of data in the database that begin with the 
characters PA would look like this: 

C 

C STATOK IS A LOGICAL VARIABLE 
C 

CALL IBADIl (STATOK) 

100 IF(STATOK)THEN 

IF(DINAM(1:2) .EQ.'PAOTHEN 
PRINT*, DINAM 
CALL IBNDIK STATOK) 

GO TO 100 
ENDIF 
ENDIF 

Obtaining Equivalent Records (IBE) 

IBE routines obtain the next duplicate record via access path xxn. You call IBE 
routines to continue retrieving records along an access path. An IBE call differs from 
an IBN call in that IBE stops returning records when they no longer match the desired 
key. IBN routines continue to return records along an access path until there are no 
more records in the database. 

For example, you could start a loop with an IBO call and continue with calls to IBE 
routines to obtain a group of records with like keys. 
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C 

C USR IS THE EDLID OF THE USER WHOSE DATA WE ARE LISTING 

C STATOK IS A LOGICAL VARIABLE 

C 

DIUSR=USR 

CALL I BOD 16 (STATOK) 

100 IF(STATOK)THEN 
PRINT*, DINAM 
CALL I BEDI6( STATOK) 

GO TO 100 
ENDIF 


Obtaining the First Record (IBF) 

IBF routines obtain the first record ordered by access path xxn. You should use these 
routines only when you want to get the first record in the database, sorted on a 
particular access path. IBF routines ignore all preset fields. 


Obtaining the Next Record (IBN) 

IBN routines obtain the next record ordered by access path xxn. An IBN call is similar 
to an IBF in that it ignores any preset fields, and returns the next record in the 
database, sorted by the specified access path. 

You will probably never use an IBN call in conjunction with an IBO. Using an IBF 
routine in a loop with an IBN call gives you all records in the database. For example, 
a loop to list the names and EDL IDs of all users validated on the EDL database 
sorted by EDL ID would look like the following example. 

C 

C STATOK IS A LOGICAL VARIABLE 
C 

CALL IBFU 10 (STATOK) 

100 IF (STATOK )THEN 

PRINT*, UIUSR.UILNA 
CALL I BNUI0( STATOK) 

GO TO 100 
ENDIF 

The following loop lists the names and EDL IDs of all users validated on the EDL 
database sorted by last name. (The only difference here is the use of access path UIl 
instead of UIO.) 

C 

C STATOK IS A LOGICAL VARIABLE 
C 

CALL IBFUIK STATOK) 

100 IF (STATOK) THEN 

PRINT*, UIUSR,UILNA 
CALL IBNUIK STATOK) 

GO TO 100 
ENDIF 
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Using Cosets to Obtain Records (IBF - IBN) 

Cosets work in the same manner as IBOxxn. and IBExxn. The only difference is that 
cosets work implicitly with the current occurrence of the owner (xx) record. In general, 
you may find it less confusing to use IBO - IBE loops. 

IBFxxyy Obtains the first member within coset xxyy. 

IBNxxyy Obtains the next member within coset xxyy. 

Storing Records (IBS) 

To store records, set the variables that match the fields in the record's COMMON 
block with legal values, and call the IBS routine for the record. If the store was 
successful, the status code (STATOK) is returned as logical TRUE, An IBS routine 
returns a FALSE status code if a record with the same key field(s) already exists in 
the database, or if a necessary setting is not made. A call to ERRIB provides an 
explanation when STATOK is returned as FALSE. 

NOTE 

When storing new records, you need to be aware of owner-member relationships. For 
example, a data information (DI) record cannot be added until its corresponding file 
information (FI) record has been added. This is for reasons of database integrity; an FI 
record can exist without data having yet been put on it, but data cannot exist without 
a file. Refer to the database schemata in appendix A to determine owner-member 
relationships. 


Modifying Records (IBM) 

To modify an existing EDL record, call an IBM routine after first setting all fields. An 
IBM routine will fail if a record with corresponding key fields does not exist. You 
cannot use an IBM routine if it changes an identifier for a record; use an IBS routine 
instead. 

Deleting Records (IBD) 

To delete records, first obtain the record then call the appropriate IBD routine. Only 
the primary key fields need be set for this call. Before deleting a record you need to 
be aware of the owner-coset relationships. For example, in order to delete a user 
information (UI) record, you must first delete all of that user’s data information (DI) 
records. The user’s DI records are those in which the DIUSR field is the same as the 
UIUSR field of the UI record you are deleting. The database schemata in appendix A 
specify all owner-coset relationships. 

Using Standard EDL Routines 

This section of chapter 3 describes standard EDL subroutines that you can include in 
your OVCAPS. 

• Error and status message routines 

• User input routines 
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• Miscellaneous utility routines 

Appendix C contains a description of the standard EDL subroutines. 

Error and Status Messages Routines 

The following subroutines allow you to display error and status messages. 
SUBROUTINE ERR (MNA) 

Displays an error message on the user’s terminal. If no error message with the given 
message name is found in the menu database, the system displays the following 
message: 

EDLDOOl EDL INTERNAL ERROR CODE sys 
Call Parameters: 

Argument Type I/O Description 

MNA C*(*) 1 Message name of the error message 

SUBROUTINE ERRSTR (MNA, MSG) 

Returns a character string containing an external error code and message. If no error 
message with the given system code is found in the menu database, the system 
displays the following message: 

EDLDOOO EDL INTERNAL ERROR CODE sys 

Call Parameters: 

Argument Type I/O Description 

MNA C*(*) I Message name of the error 

MSG C*(*) O External error message string 

CHARACTER*(*) FUNCTION EDBE (NERR) 

Returns an EDL internal error code corresponding to the IMF diagnostic for the error 
that occurred on the last database operation. The value of the function may be used as 
the error code parameter on a call to the ERR or ERRSTR routine. 

Call Parameters: 

Argument Type I/O Description 

NERR I I Diagnostic number (usually = 1) 
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SUBROUTINE ERRIB 

Prints an error message corresponding to the IMF diagnostic for the error which 
occurred on the last database operation. 

No parameters. 

Example: 

CALL I BSD I ( OK ) 

IF ( .NOT. OK ) THEN 
CALL ERRIB 
ENDIF 

SUBROUTINE MSG (MNA) 

Displays a message on the user’s terminal. If MNA is not the message name of a valid 
message in the database, the system displays an error message. 

Call Parameters: 

Argument Type I/O Description 

MNA C*(*) I Message name of desired message 

SUBROUTINE MSGSTR (MNA, MSG) 

Returns the message text string. If MNA is not a valid message name, the system 
returns an error message. 

Call Parameters: 

Argument Type I/O Description 

Menu name of desired message 
Message text 


MNA C*(*) I 

MSG C*(*) 0 
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User Input Routines 

You can include the following routines in your OVCAPS to control user input. 
SUBROUTINE INP (OUTTXTJCHflELPV) 

Returns the user’s input to the program. INP manages the EDL type-ahead buffer by 
returning only a single delimited response per call, and by issuing a read request when 
the input buffer is empty. INP does not prompt the user; use the INTXT, INYN, or 
ININT routine when you need to prompt the user before returning a response. 

Call Parameters: 

Argument Type I/O Description 

OUTTXT C*(*) 0 User-entered text returned to the calling program 

response 

ICH I 0 Number of characters in response 

HELPV L 0 TRUE if the user requested help; otherwise FALSE 

SUBROUTINE ININT (MNAJRESP,OK) 

Displays a prompt asking the user to enter an integer and returns the value entered. 

If the parameter MNA is not the message name of a valid prompt in the menu 
database, the system displays an error message instead of the prompt, but still requires 
an integer response. If the user enters anything other than an integer or null carriage 
return, the system displays an error message and asks the user to re-enter a response. 

Call Parameters: 

Argument Type I/O Description 

MNA C*(*) I Message name for the prompt 

IRESP I 0 Integer response from the user 

OK L 0 TRUE if the user entered a positive integer; FALSE 

if the user entered a null response 

SUBROUTINE INTXT (MNA,TXTJCH) 

Prompts the user and returns a text string to the calling program. MNA may be the 
name of either a prompt or an option menu. If MNA is a prompt, the user enters a 
text string. If MNA is an option menu, the system returns the first variable value of 
the selected menu line to TXT. 

ICH indicates the number of characters returned in TXT. If the user enters a null 
carriage return, TXT is blanked and ICH is set to 0. If the user enters a blank line, 
ICH is set to 1. If MNA is not a valid prompt or option menu, the system displays an 
error message but still requires a text response. 

Call Parameters: 


Argument 

Type 

I/O 

Description 


MNA 

C*(*) 

I 

Message name of the desired prompt 


TXT 

C*(*) 

0 

User response string 


ICH 

I 

0 

Number of characters in the response 
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SUBROUTINE INYN (MNAJES) 

Prompts the user for a YES or NO response. If MNA is not a valid prompt message, 
the system displays an error message but still requires a Y or N response. Any 
response other than a null carriage return, Y, YES, N, or NO causes the system to 
display an error message and reprompt the user. 

Call Parameters: 


Argument 

Type 

I/O 

Description 

MNA 

€♦(♦) 

I 

Message name of the desired prompt 

YES 

L 

0 

TRUE if Y or YES; FALSE if N, NO, no answer, or 
null return 


SUBROUTINE INOPT (MNA, OK) 

Displays an option menu and prompts the user for a selection. If the user enters a null 
response, the system selects the first line of the menu by default. This routine 
positions the option menu line record to the line selected by the user. After 
successfully calling INOPT, you can call the OPTVAL routine to retrieve the variable 
values corresponding to the selected option. 

If the option menu has only one set of variables (parameters), you should use INTXT 
instead of INOPT and OPTVAL to display the menu and return the single variable 
value. 


Call Parameters: 


Argument 

Type 

I/O 

Description 

MNA 

C*(*) 

I 

Name of the option menu to be displayed 

OK 

L 

0 

TRUE if the user selected an option; FALSE if the 
user entered a null return, or if the menu could not 
be displayed 


SUBROUTINE OPTVAL (POS,VAL,OK) 

Returns the value of the option variable associated with the option menu line selected 
by the user. A successful call to INOPT is needed before you call OPTVAL. If no 
option variable exists in the indicated position, VAL remains unchanged and OK is set 
to FALSE. 


Call Parameters: 

Argument Type I/O 


POS I I 

VAL C*(*) 0 

OK L 0 


Description 

Option variable position 
Value of the option variable 

TRUE if a variable value was returned; FALSE if no 
variable in the position 
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Utility Routines 

You can include the following EDL routines in your OVCAPS to perform a variety of 
utility functions. 

SUBROUTINE PORT 

Pops and discards all remaining processes of the current task from the execution stack. 
This routine inhibits processing of succeeding processes when an error or condition is 
found that makes subsequent task processing meaningless. (No parameters.) For 
example, if you design a task process that runs an OVCAP that passes parameters to a 
procedure, an error condition in the OVCAP should call a POPT so that the procedure 
is not run. 

SUBROUTINE CSCRN 

Clears the screen of a nonscrolling terminal or resets the number of lines available for 
a scrolling terminal. (No parameters.) 

SUBROUTINE PAUSE 

Displays the message ENTER CR TO CONTINUE and waits for a user response. The 
system ignores any input other than a carriage return. You can use the PAUSE routine 
to allow users time to read a screen of information before it is scrolled off by 
subsequent information. (No parameters.) 

SUBROUTINE COPYF (I,J) 

Copies the contents of the source file (I) to the destination file (J) and erases file (I). 
Call Parameters: 


Argument 

Type 

I/O 

Description 

I 

I 

I 

File number of the file to be copied from 

J 

I 

0 

File number of the file to be copied to 


FUNCTION CUTNAM (NAME, SHEET) 

Creates a field CUTNAM consisting of a partial drawing name and a sheet number 
separated by a space, a slash, and a space ( / ). The calling program specifies the field 
size of CUTNAM. For example, if CUTNAM is declared as 20 characters long in the 
calling program, and the sheet name consists of 2 characters, the function returns the 
first 15 characters of the drawing name, followed by ’ / ’ and the sheet number. If the 
drawing name does not have 15 significant characters, CUTNAM compresses the result. 

Call Parameters: 

Argument Type I/O Description 

NAME C*(^) I EDL data name 

CUTNAM C*(*) 0 Partial drawing name / sheet # 

SHEET I I Sheet number to be appended 
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SUBROUTINE CUTSTR (INSTRJiEMSTRJ.ENGTHMIGN) 

Cuts the input string (INSTR) at a blank so that the resulting input string is less than 
the specified LENGTH. The remainder of the string is returned in REMSTR. ALIGN is 
farthest position to left to check for a blank. If no blank is found, the line is split at 
the specified length. 

The following example illustrates the use of CUTSTR. 

INSTR = 'THIS IS A SAMPLE OF AN INPUT STRING' 

ALIGN = 10 
LENGTH = 26 

RESULTING INSTR = 'THIS IS A SAMPLE OF AN' 

RESULTING REMSTR = 'INPUT STRING' 


Call Parameters: 

Argument Type I/O 


INSTR C*(*) I/O 

REMSTR C*(*) O 

LENGTH I I 

ALIGN I I 


Description 

Input string 

Remainder of the string 

Length the input string should be cut to 

Farthest left position to check for a blank 


FUNCTION FULLNM (USR) 

Reads the UI record of the specified EDL ID, and returns the corresponding last, first, 
and middle names in the form: Adams, John Quincy. If the first or middle name 
consists of only one character (that is, an initial) FULLNM places a period after that 
character: Adams, John Q. 

Call Parameters: 

Argument Type I/O Description 

USR C*(*) I EDL ID 

FULLNM C*(*) O First, middle, and last names 


FUNCTION FULPER (MODE) 

Spells out a single-character permission mode (W, R, I, or N) to (WRITE, READ, 
INFO, or NONE). 

Call Parameters: 

Argument Type I/O Description 

MODE C*(*) I One-character file permission 

FULPER C*(*) O Spelled-out file permission 
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SUBROUTINE GETPRM (PRM,VAL^OUND) 

Gets the value of a task process parameter and returns it to the program. The 
parameter (from the TV record) may be a constant, variable, or prompt. 

Call Parameters: 


Argument 

Type 

I/O 

Description 

PRM 

C*(*) 

I 

Task process parameter name 

VAL 

C*(*) 

0 

Value of the parameter 

FOUND 

L 

0 

TRUE if a parameter was returned, FALSE if a 
parameter was not found 


SUBROUTINE GETPRN (VAL^OUND) 

Gets the next value of the task process parameter defined by GETPRM and returns it 
to the program. The parameter (from the TV record) may be a constant, variable, or 
prompt. 

Call Parameters: 

Argument Type I/O Description 

VAL C*(*) 0 Value of the parameter 

FOUND L 0 TRUE if a parameter was returned, FALSE if a 

parameter was not found 


CHARACTER FUNCTION LEFTJ (NUMBER) 

Converts a number into a left-justified character string. 
Call Parameters: 


Argument 

Type 

I/O 

Description 

NUMBER 

I 

I 

Number to be left-justified 

LEFTJ 

C*{*) 

0 

Resulting left-justified character string 


SUBROUTINE LIST (MNAJNFO) 

Concatenates a title and its description from the menu database and prints it as a list. 
LIST only lists one line each time it is called. The position of the alignment is 
determined by the end of the title in the menu database. 

The following example shows a list created by four calls to LIST, 

EDL USER ID CADDATDEV 
PASSWORD GDS43L 
USER NAME GL0234F 
DEPARTMENT 9087 


Call Parameters: 


Argument 

Type 

I/O 

Description 

MNA 

C*(*) 

I 

Name of message menu for title 

INFO 

C*(*) 

I 

Text to be concatenated to message 
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FUNCTION LSTCHR (STR) 

Finds the last nonblank character working backward from the end of a string. This 
function is useful for concatenating strings. 

Call Parameters: 

Argument Type I/O Description 

STR C*(*) I String to be examined 

LSTCHR I O Position of the last nonblank character in STR 

SUBROUTINE NXTEDN (HOSJSDN,OK) 

Finds the next available data identifier for the host. It is used to find the correct 
DIEDN value before adding a new DI record. 

Call Parameters: 

Argument Type I/O Description 

HOS C*(*) I Host identifier 

EDN I O Next unused data identifier for the host 

OK L O TRUE if no error 

SUBROUTINE NXTFIL (HOSJIL,OK) 

Finds the next available file identifier for the host. It is used to find the correct FIFIL 
value before adding a new FI record. 

Call Parameters: 

Argument Type I/O Description 

HOS C*(*) I Host identifier 

FIL I O Next unused file identifier for the host 

OK L O TRUE if no error 

SUBROUTINE PUTNAM (NAME, SHEET) 

Uses PUTVAR to store DIN AM in parameter NAME and DISID in parameter SHEET. 
Call Parameters: 

Argument Type I/O Description 

NAME C*(*) I Data name 

SHEET I I Sheet number 
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SUBROUTINE PUTVAR (NAM,VAL) 

Stores the value VAL in EDL global variable NEXT. VALUE is returned when EDL 
looks for a VARIABLE type parameter. 

Call Parameters: 

Argument Type I/O Description 

NAM C*(*) I Parameter name to store 

VAL C*(*) I Parameter value to store 

SUBROUTINE RETLIS (IMAX,MSGT,VAR,OK) 

RETLIS displays a selection list and prompts for a choice. The selection list must be 
prepared by the calling program on FORTRAN unit 12. RETLIS processes the 
information on file EEEDL12 in the following manner: 

1. The system displays the following message: 

n SELECTIONS 

where n is the number of records on EEEDL12. 

2. The system displays the message specified by HEADER. 

3. The system reads each record on EEEDL12. 

4. The system ignores the first I characters on each line where I = len(value). 

5. The system displays the next 132 characters on the line preceded by a sequence 
number. For example: 

"1. ADAMS, JOHN Q" 

6. EDL prints the following message after displaying NL lines (where NL is the 
number of lines on a screen), or when the end of the list is encountered: 

"ENTER A NUMBER, E OR EXIT TO EXIT, OR CR FOR MORE" 

7. Depending on the user input, EDL responds as follows: 

a. If the user enters a number J, EDL rewinds EEEDL12 and reads VALUE from 
the Jth line of the file. 

b. If the user enters a null response, EDL prints more of the list. If the list was 
ended, it is started over, 

c. If the user enters E, OK is set to FALSE and EDL returns to the calling 
routine. 


Call Parameters: 


Argument 

Type 

I/O 

Description 


IMAX 

I 

I 

Number of records on EEEDL12 


MSGT 

C*(*) 

I 

Message identifier for the table header 


VAR 

C*(*) 

0 

Contents of the line to be returned 


OK 

L 

0 

TRUE if the user made a selection, FALSE if the 
user chose EXIT 
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Additional EDL Subroutines 

Appendix C contains a list of the standard subroutines used by EDL. To see a complete 
task definition showing how each is used in the Message Database, use the RTASKS 
procedure on E125PRC (BEGIN, RTASKS, E125PRC). You can call the standard EDL 
subprograms from task protocols that you create, but you cannot modify or read them; 
source code is not provided. 
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Examples 

This section provides examples of EDL customization involving the manipulation of the 
Engineering Data Database. 

Adding a Task to EDL 

Depending on its complexity, adding a task to EDL can involve creating a new CCL 
procedure and changing the Message and Task Database to use it, or it can mean 
writing a new FORTRAN subroutine. Chapter 2 of this manual provides an example of 
the simple task addition using the interactive MENUMOD utility. 

CAUTION 

You should always make your changes to a copy of the working databases to avoid 
damaging your current system. EDL prevents modification of the Message and Task 
Database while any user is active; the database is opened for reading, shared with all 
readers. 

1. Use the NOS command COPYEI to make a copy of EDL. 

2. Make your changes against the copy and test them out. 

3. After successfully testing your modifications, implement them on your working 
databases. 


The following example shows how to create a batch transaction data file that adds both 
a procedure and new code. 

1. Use your text editor to prepare a batch transaction data file to change the Message 
and Task Database as shown in the following example. 


A 

TI 

MYTASK 


CUSTOMIZED 

TASK 

A 

TC 

MYTASK 

MYCOMMAND 



A 

TP 

MYTASK 

1 OVCAP 

XMYCODE 


A 

TP 

MYTASK 

2CCL PROC 

MYPROC 

MYPROCF 

A 

TV 

MYTASK 

2 

1 MYPARM 

VARIABLE 


This transaction file creates a task called MYTASK that is called with the 
command MYCOMMAND. The task MYTASK consists of two steps: 

a. It runs an OVCAP named XMYCODE. 

b. It executes a procedure called MYPROC from file MYPROCF. EDL passes a 
parameter called MYPARM to procedure MYPROC. 

2. Create an OVCAP like the following example. (You omit this step if you are adding 
a task that contains only a CCL procedure.) 

OVCAP . 

SUBROUTINE XMYCODE 
CALL MYCODE 
RETURN 
END 
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NOTE 

Although the OVCAP could actually contain the code for the subroutine, we 
recommend that you keep your code in a separate library for ease of modification, 
testing, and maintenance. 


3. Create a subroutine to call any necessary IB routines. You can also include any of 
the standard EDL routines described in this chapter to display messages, prompts, 
menus, or selection lists. (You omit this step if you are adding a task that contains 
only a CCL procedure.) 

In the following example, subroutine MYCODE prompts the user for a character 
string to be put into variable MSG. If the user enters a string, the PUTVAR 
routine is called to put the reply into a variable called MYPARM. The value in 
MYPARM is then available to any part of EDL and can be passed to the CCL 
procedure. (Remember that CCL can only handle parameters up to 40 characters in 
length.) 

SUBROUTINE MYCODE 

C THIS ROUTINE PROMPTS THE USER FOR A MESSAGE, AND WRITES IT IN A NOTE 

C TO THE TERMINAL WITH CCL PROCEDURE MYPROC ON FILE MYPROCF. 

CHARACTER MSG*30 

C 'ENTER THE MESSAGE FOR A NOTE OR CR TO RETURN' 

CALL INTXT('MYCODE1',MSG,ICH) 

IF(ICH.NE.0)THEN 

CALL PUTVAR ('MYPARM', MSG) 

ENDIF 

RETURN 

END 

This code should be put into a library. You must also remember to copy the 
corresponding COMMON blocks from file EDLCOM if you use any of the IB 
routines. 

4. Create the Message and Task Database transactions needed for the MYCODE 
routine as shown in the following example. (You omit this step if you are adding a 
task that only contains a CCL procedure.) 

A MI MYCODE 1 PROMPT ENTER THE MESSAGE FOR A NOTE OR CR TO RETURN 

A MH MYCODE 1 1WHAT YOU ENTER HERE WILL BE DISPLAYED IN A 

A MH MYCODE 1 2NOTE ON YOUR TERMINAL AND IN YOUR DAYFILE. 

5. Create the CCL procedure as follows. (You omit this step if you are adding a task 
that only contains an OVCAP.) 

.PROC, MYPROC, MYPARM. 

NOTE, , NR. /MYPARM 
REVERT. MYPROC 
EXIT. 

REVERT, ABORT. MYPROC 

Save the procedure in the file named in the menu database transaction file created 
in step 1. The file should be permitted in the same manner as the file E125PRC. 
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6. Load the routines. (You omit this step if you are adding a task that contains only a 
CCL procedure.) 


For example, if the OVCAP you created was written onto a file called MYOVCAP, 
and the routine MYCODE *was put on library MYLIB, the call to LOADEDL would 
look like this: 


BEGIN , LOADEDL , E 1 25PRC , F=MYOVCAP , ULIB=MYLIB . 

LOADEDL creates a new E125ABS absolute by combining the OVCAPs and routines 
from your original release of EDL with the OVCAPs in file MYOVCAP and the 
routines in library MYLIB. 

NOTE 

Keep in mind that any routines and/or OVCAPs that you have previously added 
will not be in this load unless they are included in the OVCAP and library files 
loaded here. 


7. Update the Message and Task Database. 

Put the transactions you created in the preceding steps into the same file, and 
update EDL for those transactions as follows: 

a. Enter EDL using an ID with SYSADMIN privileges (for example, EDLID). 

b. Select the ADD INFORMATION FOR ENGINEERING DATA task (or enter 
command ADDINFO). 

c. Specify the application data type: EDL MDB TRANSACTIONS. 

d. Give the data a meaningful name, like MDB TRANSACTIONS TO ADD A 
MYTASK. 

e. Enter the MENUMGMT command. 

f. Retrieve the data that you just entered into EDL. 

g. When you select the data, the changes are automatically entered into EDL. 

Creating a Site-Defined Retrieval 

This example of EDL customization shows how to create a site-defined retrieval 
method. This modification requires the addition of reserved subroutines and menu lines. 
In order to actually implement this example, you must have FORTRAN 5 installed on 
your system. 

This example alters the retrieval selection routine in EDL to process an additional 
option value called SITE in option menus EXTRAC and EXFRAC. When a user selects 
SITE, EDL calls a routine called EXTSIT. The following steps outline the procedure 
used to create and add this routine: 

1. Write and compile a routine named EXTSIT. 

2. Use the procedure LOADEDL to establish a new EDL program and link your code. 

3. Change the Message and Task Database to use the your new menu changes, 
prompts, error messages, and help information. 
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4. Test and archive your work. 

Building Routine EXTSIT 

The EXTSIT routine retrieves data based on the type of the file that the data resides 
on. The line numbers in EXTSIT are for reference only (they are not part of the 
program). The tables that follow the program listing provide descriptions for the 
referenced lines. 

NOTE 

This example shows program statements derived from the EDLCOM data file. Though 
they were accurate at the time of this document’s printing, they might have changed. 
Treat this as an example and refer to the files in EDLCOM for the current contents. 


Revision A 


Manipulating the Engineering Data Database 3-25 




Creating a Site-Defined Retrieval 


1 SUBROUTINE EXTSIT(NUM) 

2 cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

3 CXX 

4 CXX PURPOSE - RETRIEVE BY FILE TYPE CODE 

5 CXX 

6 CXX CALL PARAMETERS - 

7 CXX ARGUMENT TYPE I/O DESCRIPTION 

8 CXX NUM I 0 NUMBER OF RECORDS RETRIEVED 

9 CXX 

10 CXX DATABASE USAGE - 

11 CXX DI DATA INFORMATION RECORD 

12 CXX FT FILE TYPE RECORDS 

13 CXX FI FILE INFO RECORDS 

14 CXX 

15 cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

16 C ENTER FILE TYPE 

17 C IF 'LIST' CALL LISFTC 

18 C SET FIFTC TO THE FILE TYPE 

19 C OBTAIN AN FI RECORD 

20 C WHILE THERE ARE FI RECORDS 

21 C USE THE FIDI COSET TO GET A DI RECORD 

22 C WHILE THERE ARE DI RECORDS 

23 C CALL EXTWRI(NUM) TO WRITE THE RECORD TO EEEDL9 IF 

24 C THE DATA IS PERMITTED 

25 C GET ANOTHER DI RECORD 

26 C GET ANOTHER FI RECORD 

27 cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
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Lines Description 

1 EDL is coded to look for the routine EXTSIT, with the parameter NUM 

where NUM is the number of records found. This counter is incremented 
by the routine called EXTWRL 

2-15 Prologue. The database usage area is the names of the database records 

used in this routine. These record types correspond to the common blocks 
which are included from the file EDLCOM. 

16-27 Explanation of how EXTSIT processes. 
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28 C 

29 C EDL.COMMON BLOCK 

30 C EDL PRIMARY COMMON BLOCK 

31 COMMON /ECOM1/ HOST, USR, PWD, MDISP, -SCLOCK, 

32 +CHELP. CLIST, CEXIT. CMENU. CCLEAR, 

33 +CWORK. OREL, CSUBM, CPEND, 

34 +CPAUSE1, CPAUSE2, CINOPTI, CEXTM1, 

35 +CYES. CNO, 

36 +NOSUN, STRDEL, INPDEL, 

37 +AUN, DUN, DDB, MUN, MDB, AC, IT, OT 

38 CHARACTER*10 HOST, USR, PWD, MDISP, SCLOCK 

39 CHARACTER* 10 CHELP, CLIST, CEXIT, CMENU, CCLEAR 

40 CHARACTER* 10 CWORK, CREL, CSUBM, CPEND 

41 CHARACTER*70 CPAUSEl, CPAUSE2, CINOPTI, CEXTM1 

42 CHARACTER *3 C YES, CNO 

43 CHARACTER *7 NOSUN 

44 CHARACTER*! STRDEL, INPDEL 

45 CHARACTER *7 AUN, DUN, DDB, MUN, MDB 

46 CHARACTER *2 AC 

47 CHARACTER *7 IT,OT 

48 COMMON /ECOM2/ NSYNC, PW, PL, NL, SCROLL, ECHO 

49 INTEGER NSYNC, PW, PL, NL 

50 LOGICAL SCROLL, ECHO 

51 C 

52 C DI COMMON BLOCK 

53 C 

54 COMMON / DI / DIEDN 

55 COMMON / R600701 / DINAM 

56 COMMON / R600702 / DISID .DIFIL 

57 COMMON / R600703 / DIREV ,DIEDT .DIADT .DIUSR ,DITTL 

58 *,DI3TA ,DIDATC ,DIDATM ,DIDATR .DITIMC ,DITIMM ,DITImR 

59 INTEGER DIEDN , DISID , DIFIL 

60 CHARACTER DINAM *70, DIREV *10,DIEDT *20, DIADT *20 

61 *, DIUSR *10,DITTL *100,DISTA *10,DIDATC *10,DIDATM *10 

62 *,DIDATR *10,DITIMC *10,DITIMM *10,DITIMR *10 

63 C 

64 C FI COMMON BLOCK 

65 C 

66 COMMON /FI / FIFIL 

67 COMMON / R601601 / FIHOS ,FIFUN ,FIPFN ,FIFTC ,FISTA 

68 *,FIUSR ,FIVSN ,FICT ,FIMOD 

69 INTEGER FIFIL 

70 CHARACTER FIHOS *10,FIFUN *31,FIPFN *100 

71 *,FIFTC •20,FISTA *10,FIUSR *10,FIVSN •6,FICT *2 

72 *,FIMOD *1 

73 C 

74 C FT COMMON BLOCK 

75 C 

76 COMMON / FT / FTFTC ,FTNAM ,FTAPN ,FTLFN 

77 COMMON / R602201 / FTLFNR ,FTMUL ,FTPRT 

78 COMMON / R602202 / FTCHR 

79 LOGICAL FTLFNR ,FTMUL , FTPRT 

80 CHARACTER FTFTC •20,FTNAM •21,FTAPN *20,FTLFN *7 

81 *, FTCHR *1 

82 C 
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Lines 

28-82 


Description 

COMMON Blocks. These declarations are included from the EDLCOM file. 
Blocks DI, FI, and FT are used by the IB routines. Include the 
corresponding file for each record t3T)e used. EDL_COMMON is the 
primary common block in EDL and contains constants used throughout 
EDL. In this example, the block must be included to provide the constant 
CLIST. 
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83 LOGICAL OK 

84 CHARACTER FTC*20 

85 100 CONTINUE 

86 NUM=0 

87 C 

88 C GET THE FILE TYPE 

89 C 

90 C 'ENTER THE FILE TYPE TO BE RETRIEVED OR LIST OR CR TO RETURN' 

91 CALL INTXT('EXTSIT1',FTC.ICH) 

92 IF(ICH.NE.O)THEN 

93 IF(FTC.EQ.CLIST)THEN 

94 CALL LISFTC(FTC,OK) 

95 FTFTC=FTC 

96 ELSE 
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Lines Description 

83 The logical variable OK monitors the status of the calls to IB routines. 

84 Character variable FTC stores the user’s choice of file type code. 

86 NUM is the count of records found. If NUM is returned to the calling 

routine as 0, the routine displays a message indicating that no records 
were found. This count is updated by routine EXTWRI. 

91 Prompt for input. The INTXT routine prompts with the message named 
EXTSITl found in the message database, and puts the response in variable 
FTC. ICH is the character length of the response. 

92 If the response was a carriage return, ICH is set to 0, the routine skips to 
the ENDIF on line 118, and it returns to the calling routine. 

93-100 An explanation of file type (FT) records. There are two identification fields 
in the FT record: FTFTC and FTNAM. When EDL is released, these fields 
contain identical information. FTFTC is the file type code that EDL uses 
internally; do not change this field. FTNAM is the external name that the 
user sees; you can customize this field to reflect the terminology of your 
particular site. LISFTC is a routine that lists all FTNAM fields. When the 
user makes a selection, the value of the corresponding FTFTC field is 
returned to EDL. 

93-95 If the response is equal to the constant CLIST (set to LIST when EDL is 

released), then the LISFTC routine is called. LISFTC lists the available 
FTNAM values, and prompts the user to select one. If the user chooses 
EXIT, OK is set to FALSE. If the user selects one of the file names, OK 
is set to TRUE and the FTFTC value corresponding to the FTNAM chosen 
by the user is put into variable FTC. 
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97 


FTNAM=FTC 

98 


CALL IBOFTI(OK) 

99 


IF( .NOT.OK)THEN 

100 

C 

'THE FILE TYPE IS NOT 

101 


CALL ERR('EXTSIT2') 

102 


ENDIF 

103 


ENDIF 

104 


IF(OK)THEN 

105 


FIFTC=FTFTC 

106 


CALL IB0FI4(0K) 

107 

200 

IF(OK)THEN 

108 


CALL IBFFIDI(OK) 

109 

300 

IF(OK)THEN 

110 


CALL EXTWRI(NUM) 

111 


CALL IBNFIDI(OK) 

112 


GO TO 300 

113 


ENDIF 

114 


CALL IBEFI4(OK) 

115 


GO TO 200 

116 


ENDIF 

117 


ENDIF 

118 


ENDIF 

119 

900 

CONTINUE 

120 


RETURN 

121 


END 
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Lines 

97-102 

104 

105 

106 

107 

108 

109 

110 

111-112 

114-115 


Description 

If the response is not CLIST, FTNAM is set equal to the response and 
IBOFTl is called to obtain the the FT record via access path FTl. If no 
FT record is found, the system displays error message EXTSIT2. If the 
matching FT record is found, the system fills all fields in the common 
block FT with information from the matching record. 

If OK was set to FALSE, either because no FT record was found or 
because the user exited routine LISFTC, processing skips to the ENDIF in 
line 117 and returns to the calling routine. 

FIFTC (a key for the FI record) is set equal to the FTFTC value 
determined in line 95. 

IBOFI4 obtains the first FI record via access path FI4 (FIFTC). OK is set 
to TRUE if records are found; otherwise FALSE. 

If OK is FALSE, control goes to the ENDIF in line 116 and returns to the 
calling routine. 

IBFFIDI obtains the first DI record corresponding to the FI record obtained 
either in line 106 or 114. OK is set to TRUE if records are found; 
otherwise FALSE. 

If OK is FALSE, control goes to the ENDIF in line 113. 

EXTWRI with the parameter NUM checks the DI record to see if the data 
should be in the user’s retrieval list. This routine checks file permissions, 
application data types, and engineering categories, depending on the ADT 
or EDT task parameters on the task that called this routine. If the record 
is acceptable, the program writes data information to file EEEDL9 and 
increments NUM. 

IBNFIDI obtains the next DI record corresponding to the current FI record. 
OK is set to TRUE if a record is found; otherwise FALSE. Control then 
goes to line 109 (statement number 300). 

Once all of the corresponding DI records are found for an FI record, 

IBEFI4 finds any other FI record with the same FIFTC field. OK is set to 
TRUE if a record is found; otherwise FALSE. Control then goes to line 107 
(statement number 200). 
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Building Routine EXFSIT 

The EXFSIT routine performs further extractions (option 5 of the RETRIEVAL OPTION 
menu). This routine functions like EXTSIT with the exceptions as noted in lines 224 - 
240. 

122 SUBROUTINE EXFSIT(NUM) 

123 cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


124 

CXX 





125 

CXX 

PURPOSE - 

- FURTHER 1 

RETRIEVE BY FILE 

TYPE CODE 

126 

CXX 





127 

CXX 

CALL PARAMETERS - 



128 

CXX 

ARGUMENT 

TYPE 

I/O DESCRIPTION 

129 

CXX 

NUM 

I 

0 NUMBER OF 

RECORDS RETRIEVED 

130 

CXX 





131 

CXX 

DATABASE 

USAGE - 



132 

CXX 

DI 

DATA INFORMATION RECORD 


133 

CXX 

FI 

FILE INFO 

RECORD 


134 

CXX 

FT 

FILE TYPE 

RECORD 


135 

CXX 






136 cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

137 C ENTER FILE TYPE 

138 C IF 'LIST' CALL LISFTC 

139 C SET FIFTC TO THE FILE TYPE 

140 C READ A RECORD OFF EEEDL9 

141 C GET THE CORRESPONDING DI RECORD 

142 C GET THE CORRESPONDING FI RECORD 

143 C • IF THE FTC'S MATCH 

144 C WRITE THE RECORD TO EEEDL10 

145 C READ ANOTHER RECORD FROM EEEDL9 

145 Qxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

147 C 

148 C EDL_COMMON BLOCK 

149 C EDL PRIMARY COMMON BLOCK 

150 COMMON /ECOM1/ HOST, USR, PWD, MDISP, SCLOCK, 

151 +CHELP, CLIST, CEXIT, CMENU, CCLEAR, 

152 +CWORK, CREL, CSUBM, CPEND, 

153 +CPAUSE1. CPAUSE2. CINOPTI, CEXTMl , 

154 +CYES. CNO, 

155 +NOSUN. STRDEL, INPDEL, 

156 +AUN. DUN, DDB, MUN, MDB. AC, IT, OT 

157 CHARACTER* 10 HOST, USR, PWD, MDISP, SCLOCK 

158 CHARACTER* 10 CHELP, CLIST, CEXIT, CMENU. CCLEAR 

159 CHARACTER* 10 CWORK, CREL. CSUBM. CPEND 

160 CHARACTER*70 CPAUSE1, CPAUSE2, CINOPTI, CEXTMl 

161 CHARACTER*3 CYES.CNO 

162 CHARACTER *7 NOSUN 

163 CHARACTER*! STRDEL, INPDEL 

164 CHARACTER*7 AUN. DUN, DDB, MUN, MDB 

165 CHARACTER *2 AC 

166 CHARACTER*7 IT.OT 

167 COMMON /ECOM2/ NSYNC, PW, PL, NL, SCROLL, ECHO 

168 INTEGER NSYNC, PW, PL, NL 

169 LOGICAL SCROLL, ECHO 

170 C 

171 C DI COMMON BLOCK 
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172 

C 



173 


COMMON / DI / DIEDN 


174 


COMMON / R600701 / DINAM 


175 


COMMON / R600702 / DISID .DIFIL 


176 


COMMON / R600703 / DIREV .DIED! .DIADT .DIUSR 

.DITTL.DISTA 

177 


•.DIDATC .DIDATM .DIDATR .DITIMC .DITIMM .DITIMR 


178 


INTEGER DIEDN .DISID , DIFIL 


179 


CHARACTER DINAM *70, DIREV MO.DIEDT *20. DIADT 

•20 

180 


•.DIUSR ‘lO.DITTL ‘lOO.DISTA *10. DIDATC -lO.DIDATM *10 

181 


•.DIDATR *10. DITIMC *10. DITIMM *10. DITIMR *10 


182 

C 



183 

C 

FI COMMON BLOCK 


184 

C 



185 


COMMON /FI / FIFIL 


186 


COMMON / R601601 / FIHOS .FIFUN .FIPFN .FIFTC 

.FISTA 

187 


•.FIUSR .FIVSN .FICT .FIMOD 


188 


INTEGER FIFIL 


189 


CHARACTER FIHOS *10. FIFUN *31. FIPFN *100 


190 


•.FIFTC •20.FISTA *10. FIUSR *10. FIVSN *6. FICT 

•2 

191 


•.FIMOD •! 


192 

C 



193 

C 

FT COMMON BLOCK 


194 

C 



195 


COMMON /FT / FTFTC . FTNAM .FTAPN .FTLFN 


196 


COMMON / R602201 / FTLFNR , FTMUL .FTPRT 


197 


COMMON / R602202 / FTCHR 


198 


LOGICAL FTLFNR .FTMUL .FTPRT 


199 


CHARACTER FTFTC ^20. FTNAM ^21. FTAPN ^20. FTLFN 

•7 

200 


• . FTCHR • 1 


201 

C 



202 


LOGICAL OK 


203 


CHARACTER FTC*20 . LINE*80 


204 

100 

CONTINUE 


205 


NUM=0 


206 

C 



207 

C 

GET THE FILE TYPE 


208 

C 



209 

C 

'ENTER THE FILE TYPE TO BE RETRIEVED OR LIST OR CR 

TO RETURN' 

210 


CALL INTXT('EXFSITI'.FTC.ICH) 


211 


IF(ICH.NE.O)THEN 


212 


IF(FTC.EQ.CLIST)THEN 


213 


CALL LISFTC(FTC.OK) 


214 


FTFTC=FTC 


215 


ELSE 


216 


FTNAM=FTC 


217 


CALL IBOFTI(OK) 


218 


IF( .NOT.OK)THEN 


219 

C 

'THE FILE TYPE IS NOT RECOGNIZED BY EDL' 


220 


CALL ERR('EXFSIT2') 


221 


ENDIF 


222 


ENDIF 


223 


IF(OK)THEN 
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224 


REWIND 9 

225 

200 

READ(9, 5000, END=900)DIEDN, LINE 

226 

5000 FORMAT(I10,A) 

227 


CALL IBODIO(OK) 

228 


IF( .NOT.OK)CALL ERRIB 

229 


FIFIL=DIFIL 

230 


CALL IBOFIO(OK) 

231 


IF( .NOT.OK)CALL ERRIB 

232 


IF(FIFTC.EQ.FTFTC)THEN 

233 


WRITE(10,5000)DIEDN,LINE 

234 


NUM=NUM+1 

235 


ENDIF 

236 


GO TO 200 

237 


ENDIF 

238 


ENDIF 

239 

900 

CONTINUE 

240 


RETURN 

241 


END 

Lines 


Description 


224-226 Rather than obtaining data records based on criteria, subsequent 

extractions read the current list of data records and compare them against 
the criteria given. All retrievals write records to the file EEEDL9. This 
routine reads record information from EEEDL9. 

227 EDL obtains the DI record based on the DIEDN read from EEEDL9. The 
only reasons a record would not be there are if it had been purged, or if 
there was something wrong with the database. If the record cannot be 
found, OK is set to FALSE by the IBODIO routine. 

228 If OK was set to FALSE, the ERRIB routine is called to display the reason 
for the error. ERRIB is used in EDL to assist the tracking of unexpected 
problems in code or in the database. 

232-235 If the FIFTC field for the data file matches the user entry, the program 
writes the record to EEEDLIO and increments NUM. 

240 File EEEDLIO is copied over EEEDL9, giving a new selection list, if NUM 

is returned as greater than 0 when the routine terminates. If NUM is zero 
(meaning that no records met the new criteria), the original EEEDL9 file 
is left unchanged. 
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Updating the Message and Task Database 

After creating the new subroutine EXTSIT, you need to update your Message and Task 
Database to include the new option. The sample batch transaction file shown in figure 
3-2 performs the following updates: 

1. Adds another line to the retrieval option menu. Note that the option value (OV) is 
SITE. EDL checks for this value when processing the retrieval menu. 

2. Adds the following prompt: 

ENTER THE FILE TYPE CODE, LIST, OR CR TO RETURN 

Associated HELP messages are added if the user enters HELP in response to this 
prompt. 

3. Adds the following error message: 

THE FILE TYPE IS NOT KNOWN TO EDL 

4. Adds the same features for secondary retrievals (EXFRAC). 


A 

OM 

EXTRAC 


13FILE TYPE CODE 

A 

OK 

EXTRAC 


13FTC 

A 

OV 

EXTRAC 


13 1SITE 

A 

MI 

EXTSIT 1 

PROMPT 

ENTER THE FILE TYPE CODE, LIST, OR CR TO RETURN 

A 

MH 

EXTSIT1 


1THE FILE TYPE CODE IS DEFINED BY THE SITE TO DESCR 

A 

MH 

EXTSIT 1 


2USE OF A PARTICULAR TYPE OF FILE. ENTER “LIST" TO 

A 

MH 

EXTSIT1 


3A LIST OF POSSIBLE FILE TYPES. 

A 

MH 

EXTSIT1 


4A CARRIAGE RETURN WILL RETURN TO THE RETRIEVAL MET 

A 

MI 

EXTSIT2 

ERROR 

THE FILE TYPE IS NOT KNOWN TO EDL 

A 

OM 

EXFRAC 


13FILE TYPE CODE 

A 

OK 

EXFRAC 


13FTC 

A 

OV 

EXFRAC 


13 1SITE 

A 

MI 

EXFSIT1 

PROMPT 

ENTER THE FILE TYPE CODE, LIST, OR CR TO RETURN 

A 

MH 

EXFSIT1 


1THE FILE TYPE CODE IS DEFINED BY THE SITE TO DESCR 

A 

MH 

EXFSIT1 


2USE OF A PARTICULAR TYPE OF FILE. ENTER "LIST" TO 

A 

MH 

EXFSIT1 


3A LIST OF POSSIBLE FILE TYPES. 

A 

MH 

EXFSIT1 


4A CARRIAGE RETURN WILL RETURN TO THE RETRIEVAL MET 

A 

MI 

EXFSIT2 

ERROR 

THE FILE TYPE IS NOT KNOWN TO EDL 


Figure 3-2. Sample Batch Transaction File for Implementing a Site-Defined 

Retrieval 


Revision A 


Manipulating the Engineering Data Database 3-37 





Adding a New Application • 4 


Application Coding Guidelines 4-1 

Data Naming 4-1 

Application Command Line 4-1 

Application Scripts 4-1 

User Profile Tasks 4-2 

EDL Log File 4-2 

Batch Mode Operation 4-2 

File Locking 4-2 

File Creation 4-2 

Data Hierarchies 4-2 

Example 4-3 




Adding a New Application 


4 


Adding a new application to EDL involves modifying’ nearly every part of the EDL 
system. You need an application header record in the database, CCL procedures, tasks, 
menus, and commands to invoke the application, tasks to retrieve application data, 
tasks to perform data transfers and translations, new file t 5 T)e and data t 5 T)e 
definitions, and perhaps application terminal configuration records to pass parameters 
to the application, EDL contains a procedure that automatically performs all these 
steps for the ICEM applications. 


Application Coding Guidelines 

Applications controlled by EDL must conform to certain conventions. The following 
paragraphs describe the coding conventions you should follow when adding new EDL 
applications to the database. 

Data Naming 

Keep the following points in mind when defining application data names. 

• All file names and directory names accepted by an application should be a 
maximum of 100 characters long. 

• Do not hard-code file names within your application. 

• Your application should preserve the name assigned to a piece of data regardless of 
its storage format. 

Application Command Line 

EDL can start an application procedure and specify all parameters as parameter 
values. For example, /PARTS= :udd: user : parts might indicate the name of the user’s 
database of parts. The application start procedure is responsible for supplying default 
values for parameters not specified and converting parameters into arguments, if 
necessary. 

The CCL command line has a limit of 80 characters. If this proves to be too small, 
create an EDL subprogram to provide a file containing a list of parameters and values, 
then pass the name of this file to the application procedure. 

Application Scripts 

You can run your application from an input script to control certain data 
transfer/retrieval operations started by EDL. For example, the retrieval of a DDN 
drawing from the global part file is accomplished by running DDN with a script that 
restores the named data from the GPARTS file and makes it the working part. EDL 
maintains both the application data name and the actual system file name for the data, 
EDL can then use either name as directed by the input script. 
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User Profile Tasks 

EDL provides a user profile default files task to preset the names of default application 
files/libraries. The default files list contains the preset names that are passed to CCL 
procedures as parameters. The value assigned to any parameter in this task must be 
the name of a file known to EDL. EDL ensures that the user has the appropriate 
permission to the named files, but does not ensure a file is exclusively open to the 
user; your application must handle file opening. 

EDL Log File 

All application filing operations should be logged in the EDLLOG file. 

Batch Mode Operation 

EDL may run applications as a batch task to perform certain data translations. Any 
application you create must be capable of running in batch. This means the NOS 
UPROC must not execute any operations not appropriate to batch mode. 


File Locking 

Because multiple users may share data, and a single user may have multiple copies of 
an application executing, all data files used in WRITE mode should be opened for 
exclusive access. Your applications must be able to detect a file already opened to 
another process and shut down gracefully. 

File Creation 

EDL can create certain files at the user’s request. If your application allows EDL to 
create its input files, the application must be able to recognize an empty, uninitialized 
file and complete its creation. 

Data Hierarchies 

EDL manages one level of file hierarchy. Files may be designated as containing the 
following elements: 

• One piece of engineering data (for example, a script file within the working 
directory) 

• Multiple data, each in its own record (for example, the TAPES file) 

• Multiple data, each in its own system file (for example, the PATTERN library) 

EDL is able to identify the data name, and the file name for a piece of data stored in 
organization type 3. Each application must decide what information is required for it to 
recognize the data/file being referred to. 
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Example 

The rest of this chapter provides an example of adding a new application to EDL. Use 

the following steps as an outline for adding your own site-specific applications to EDL. 

1. Create the application header. 

For example, the application header for a data analyzer application might appear as 
follows: 

INSERT INTO AI 

SET AIAPN = 'DATA ANALYZER', 

AIAPV = '1.0', 

AISTA = 'ACTIVE' 

2. Define new file types and data types. 

To add new types of data to EDL, you must define the new file types (FT) on 
which the data resides, and then define the application data types. For example, 
here is how ICEM DDN drawing files and drawing data are defined in the standard 
EDL database. 

INSERT INTO FT 
SET FTFTC = 'DRAWING FILE', 

FTNAM = 'DRAWING FILE', 

FTLFN = 'TAPES', 

FTLFNR = -1, 

FTAPN = 'ICEM DDN', 

FTMUL = -1, 

FTCHR = 'B', 

FTPRT = 0 

INSERT INTO AT 

SET ATADT = 'DRAWING', 

ATNAM = 'DRAWING', 

ATFTC = 'DRAWING FILE', 

ATSIDR = -1, 

ATTNA = 'RET-DRW' 

3. Specify terminal configuration. 

EDL stores terminal configuration data for each user in the user configuration (UC) 
records. By matching the user’s configuration with the application configuration 
(AC) records and the application information (AI) records, EDL decides what 
configuration parameter value to pass to the CCL procedures which execute 
application programs. 

Like all parameters, configuration parameters are controlled by task parameter 
value (TV) records for the CCL procedure task process. If the TVTYP field is 
CONFIG, EDL looks for all the AC records with ACPRM fields that match the 
TWAL field of the TV record. If the ACATR and ACSTA fields match the user’s 
current UCATR and UCSTA fields and the application version is active, the value 
in ACVAL is passed to the CCL procedure. 

EDL terminal configuration information resides in the EDL user configuration (UC) 
and application configuration (AC) records. ICEM DDN and ICEM Solid Modeler 
and Analysis applications also use the terminal configuration data in these records. 
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4. Include the EDL log file. 

When a standard ICEM application creates, modifies, or deletes data, it makes a log 
entry on file EDLLOG to inform EDL that it should update the database and 

■nrnnrnf fnr vp infnrmnt.inn TViP fnllnwincr t.ahlfi shnWR the format 

for each record in EDLLOG. Type C refers to character strings, type I to integer 
data. There are no record terminators in this format. C entries are left-justified and 
blank- or zero-filled; I entries are right-justified and blank-filled. 


Pos 

Len 

Type 

Description 

1 

1 

C 

Action code, A (added), C (changed), D (deleted), F 
(file copied), P (purged file), R (retrieved). 

2 

100 

C 

Path name of data file 

102 

31 

C 

Operating system user name 

133 

20 

C 

File Type code 

153 

20 

C 

Application Data Type code 

173 

100 

C 

Data Name 

273 

10 

no 

Secondary Identifier (e. g. Sheet Number) 


If you want EDL to automatically track the data operated by your application, you 
must modify the application to create the EDLLOG file. Then you must modify EDL 
to include your application. Include a task process (TP) step to execute the XLOG 
subprogram at the end of each task that executes your application. 


5. 


Create a default working file list. 


EDL creates a list of files for use by an application. The ATTACH subprogram can 
create this list. Initially, this list would contain the files specified by the user 
through the Default Files task. Other subprograms may add additional files to the 
list. The list is passed to the CCL procedure as a set of parameters in the form 
lfn=pfn, where Ifn is the logical file name of the file and pfn is the path name of 


1^1 uucu. ui c; 


EDL. 


6. Provide for application data retrieval. 

Write a retrieval task for each type of data processed by your application. Include 
the name of the task in the ATTN A field when you define the data type, to enable 
EDL to retrieve the data with the RETRIEVE task. 
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EDL Schema Definitions 


A 


This appendix lists the external schemas for the EDL Message and Task Database 
(EDLMENUR and EDLMENUW) and the EDL Engineering Data Database 
(EDLDATAW and EDL). 

EXTERNAL SCHEMAS EDLMENUR and EDLMENUW of 
CONCEPTUAL SCHEMA EDLMENU for EDL VI. 2.5 





OMO=MNA, MLN 
0M1=MNA, (MLN) Coset MIDM 


OKO=MNA, KEY 

0K1=MNA, MLN, (KEY) Coset OMOK 
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Tl 

Task 

Info 


TC 

Task 

Command 


TM 

Task 

Menu Line 


TP 

Task 

Processes 


TV 

Task 

Parameter 

Value 


◄ ► 
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Extsrnal Schamas EDLDATAW and EDL of 
Concaptual Schama EDLDATA VI .2.5 


USERS AND GROUPS 



UlUSR 

User ID 

UIPWD 
Password^ 0 

UlSTA 
Status ^0 

UIDPT 
D.pt. „ 

UlCMD 

First Task 
Command 10 


1 

UIFIN 

First Name 
or initial 

10 

UIMIN 
Middle or 
Initial 

10 

UILNA 

Last Name 

20 

UIDELS 

String 

Delimiter 

1 

UIDELD 

Dialog 

Delimiter 

1 

i 

UI fmo ) 

User VlV 
Information 

UITTL 

Title 

40 

UlSTR 
Street 
Address 70 

UlCTY 

City, State 
Zip CodSy 

UIPHO 
Phone 
Number 20 

UIEDT 

Editor 

10 

UIObUSR 

UI 1 bLNA,FIN,MIN(USR) 



GS 

Group 

Security 

Authority 



GSO>SEC,GRP Coset GIGS 
GSIbGRP 
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PARTS. FAMILIES, VENDORS 


◄ ► 


PI 

Part 

Information 


PIPRT 

PITTL 

PIAUX 

Part 

Part 

Reserved 

Number 

Title 

for the 



Customer 

70 

100 

100 




- 


PIOsPRT 


FM 

Family 

Information 


PF 

Part 

Family 



FMOcFAM 


PFOsPRT, FAM 
PF1=FAM, (PRT) 
PF2=PRT, (FAM) 


Coaat FMPF 
Coset PIPF 




VI 

VIVEN 

VINAM 

VISTR 

VICTY 

VIPHO 


Vendor 

Vendor 

Vendor 

City 

Phone 

Vendor 

Code 

Name 

Street 

State and 

Number 

Information 

20 

70 

70 

ZIP 

70 

20 



PV 

Part 

Vendors 


PVPRT 

1 

PVVEN 

Part 

Vendor 

Number 


70 

20 


PVOsPRT, VEN 

PVisPRT, (VEN) Cosat PIPV 

PV2=VEN. (PRT) Cosel VIPV 


VIOsVEN 

VI1=NAM 


A-4 EDL Customization for NOS 


Revision A 







PART STRUCTURE 


PR 

Part 

Structure 


PRPRT 

PRREV 

PRECO 

PRSTA 

PRAUX 

Part 

Part 

Engineering 

Status 

Auxiliary 

Number 

Revision 

Change 


(Custom 



Order 


usage) 

70 

10 

20 

10 

100 


PROsPRT, REV 

PR1=PRT, (REV) Coset PIPR 

PR2sECO, (PTR, REV) 


PS 

Part 

Structure 


PSPRTP 

PSREV 

PSPRTC 

PSSEQ 

PSUMC 

Parent Part 

Parent 

Component 

Sequence 

Units of 

Number 

Part 

Revision 

Part 


Measure 

70 

10 

70 

1 

10 


PS0=PRTP, REV, PRTC 
PS1=PRTC(PRTP,REV) CoSOt PIPS 
PS2=PRTP, REV(PRTC) 

PS3=PRTP, (REV) 

PS4sPRTP, REV, SEQ 
PS5sPRTP,REV(SEQ) Coset PRPS 


PSQTY 

Quantity 


PSAUX 

Auxiliary 


UM 

Units of 
Measure 


UMUMC 

Units of Measure Code 


UMOsUMC 
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APPLICATIONS AND ENVIRONMENT 


Al 

Application 

Information 


AC 

Application 

Configuration 


UC 

User 

Configuration 


DF 

Default 

Files 





ACOmAPN, apv, sta, prm 
ACI aAPN, APV 
AC2>APN. APV, ATR 
AC3-PRM 



DFO>USR. APN, LFN 
DF1«USR, APN. FIL 
DF2=USR,APN. (LFN) 
DFSsUSR, (APN,LFN) 
DF4«FIL 
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FILE AND DATA TYPES 


ET 

Engtnaaring 
Data Typa 
(Catagory) 


EA 

Engineering 

Data 

Attribute 


FT 

File 

Types 


AT 

Application 
Data Type 





ETOiEDT 


EAOsEDT, ATR 

EA1.EDT, (ATR) Coaet ETEA (ATR) 
EA2 eATR 


◄ ► 
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TRANSFER and TRANSLATE 


rr 

Transfer 

Task 


RT 

Release 

Transfer 
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FILES 


HIO 


HI 

Host 

Information 


FI 

Fllo 

Information 





FI1=HOS,FUN,PFN 

FI2=USR, (HOS.FUN.PFN) Coset UIFI 

FI3=HOS.FUN 

Fl4sFTC 

FI5=HOS Coast HIFI 
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FILE SHARING 


GP 

Group 

Permits 


UP 

User 

Permits 


FP 

File Permit 
Result of 
GP and UP 


PP 

Pending 

Permits 


<■ 


■> 



GPOrFIL, GRP 

GP1=FIL (GRP) Coset FIGP 

GP2=GRP Coset GIGP 


UP0=FIL, USR 

UP1=FIL, (USR) Coset FlUP 

UP2=USR Coset UlUP 


FPOrFlL.USR 
FP1=FIL Coset FIFP 
FP2=USR Coset UIFP 




^ 


PPFIL 

PPUUN 

PPMOD 

PPFUN 

File 

User's 

Mode 

File's 


Username 


Root 




Catalog 

1 

7 

. 1 

7 


PPOsFIL, UUN 
PP1 = UUN 
PP2rFUN 
PP3=FIL 
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ENGINEERING DATA 


Dl 

Data 

Information 



DI1=NAM, (SID. REV) 

DI2=FIL. (NAM, SID, REV) Coset FIDI 

DI3=NAM, SID, FIL 

DI4sEDT Coset ETDI 

DISsADT Coset ATDI 

DI6=USR 
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ENGINEERING DATA RELATIONSHIPS 




DD 

Data 

Descriptor 

DDEDN 

Engineering 

Data 

Number 

1 

— 

DDATR 

Data 

Attribute 

20 

DDVAL 

Attribute 

Value 

40 

— 


5 



, 




1 ^ 

PD 

PDPRT 

PDREV 

PDEDN 

Parts 

Part 

Part 

Date 

Data 

Number 

Revision 



70 

10 

1 




r\nn„crMii ato \/ a i 
— a lip V 

DD1=EDN, (ATR) 
Coset DIDO 
DD2=ATR, VAL 
DD3=EDN, ATR 


PDOsPRT, REV, EDN 
Coset PRPD 
PD1=PTR(REV) 

Coset PIPD 
PD2 = EDN(PTR,REV) 
Coset DIPD 
PD3=PRT, REV 


FD0=FAM,EDL 
FDIsFAM Coset FMFD 
FD2=EDN Coset DIFD 


DR0=EDN, EDNC 
DR1=EDN Coset DDR1 
DR2=EDNR Coset DDR2 


DS0=EDN, EDNS 
DSIsEDN Coset DDS1 
DS2=EDNS Coset DDS2 
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ENGINEERING DATA RELEASE 


RP 

Raleaie 

Procadures 


RU 

Ralaaaers 


RR 

Reviaw 

Rasponsibillty 



RA 

Ralease 

Authorization 


(rp^ ^ 


RRO=REL,USR,TTL 
RRlsREL,(SEQ) Coaat RPRR 
RR2=REL,SEQ(TTL) 

RRSsUSR Cosat UIRR 


RAREL 

RAEDN 

RAEDNC 

RAUSR 

RASTA 

RADAT 

Ralaasa 

E.D. 

E.D.N. of 

Relsaser 

Ralease 

Release 

Proc, 

Number 

Working 
Copy ^ 


Status 

Date 

20 

1 

10 

10 

10 



RAO 



RAOsREL.EON RASsUSR Cosst UIRA 

RAIsEDN Cosat 0tRltA4=EDNC Cosst D2RA 
RA2«REL Cosst RPRRAS«REL,STA 



RSEDN 

RSREL 

RSUSR 

RSTTL 

RSDAT 

RSSTP 

R5 

E. Date 

Release 

User 

Title 

Signature 

Stamp 

Release 

Number 

Proc. 

Signing 


Date 


Signature 








1 

20 

10 

20 

10 

10 


RSO=EDN,REL,USR,TTL 


RS1=EDN,REL,(0AT) Coset RARS 


RS2=USR Cosst urns 
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NETWORKING 


CL 

Communication 

Link 


UV 

User 

Validation 



CLOsHOSS.HOSR 

CL1=H0SS(H0SR) 

CL2=HORS(HOSS) 



UVOsHOS,USR 

UVlcHOS,USR,OUN 

UV2sHOS,OUN 

UV3=USR(HOST) COSET UlUV 
UV4=HOS(USR) COSET HlUV 
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NOTE FACILITY 


■ME 

Messago 


MN 

Message 

Instance 





ML 

MLMSG 

MLLIN 

MLTXT 

Message 

Message 

Line 

Text 

Lines 

Number 

Number 



1 

13 

79 


MEOsMSG 
ME1*USR(MSG) 
Coset UIME 


MNOsMSG.USR 
MN1 = USR(MSG) 
MN2 bUSR,STA,(MSG) 
MN3sMSG,(USR} 

Coset MEMN 


MLO=MSG,LIN 
ML1=MSG(L1N) 
Coset MEML 
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Information Base Routines B 


Application Configuration (AC) Routines B-1 

Application Information (AI) Routines B-6 

Application Data Type (AT) Routines B-8 

Data Descriptor (DD) Routines B-11 

Default Files (DF) Routines B-16 

Engineering Data Information (DI) Routines B-20 

Data Required (DR) Routines B-28 

Data Source (DS) Routines B-32 

Engineering Attributes (EA) Routines B-36 

Engineering Categories (ET) Routines B-39 

Family Data (FD) Routines B-40 

File Information (FI) Routines B-44 

Family Information (FM) Routines B-51 

File Permits (FP) Routines B-52 

File Types (FT) Routines B-56 

Group Information (GI) Routines B-60 

Group Members (GM) Routines B-64 

Group Permits (GP) Routines B-68 

Group Security Authorization (GS) Routines B-72 

Host Information (HI) Routines B-75 

Message Help (MH) Routines B-78 

Message Information (MI) Routines B-81 

Option Keyword (OK) Routines B-83 

Option Menu (OM) Routines B-86 

Option Value (OV) Routines B-89 

Parts Data (PD) Routines B-92 

Part Family (PF) Routines B-96 

Part Information (PI) Routines B-lOO 

Pending Permits (PP) Routines B-101 

Part Vendors (PV) Routines B-1 05 

Release Authorization (RA) Routines B-109 

Release Procedure (RP) Routines B-1 15 

Review Responsibility (RR) Routines B-1 16 

Release Signature (RS) Routines B-121 

Release Transfers (RT) Routines B-1 26 

Releasers (RU) Routines B-1 28 

Task Command (TC) Routines B-1 32 

Task Information (TI) Routines B-1 35 

Task Menu (TM) Routines B-1 37 

Task Process (TP) Routines B-141 

Transfer and Translation Tasks (TT) Routines B-1 44 

Task Parameter Value (TV) Routines B-1 48 

User Configuration (UC) Routines B-152 

User Information (UI) Routines B-1 55 

User Permits (UP) Routines B-1 59 

Vendor Information (VI) Routines B-163 



"'a 




Information Base Routines _B 

This appendix lists the EDL Information Base Routines sorted by table type. The 
routines are described in psuedo-SQL-DML format; the WHERE clause indicates which 
columns are key to the access, the ORDER BY clause indicates method of sorting the 
result set. 

Application Configuration (AC) Routines 

The AC table contains terminal configuration parameters that can be passed to an 
application. 

IBSAC 

STORE A NEW ROW IN TABLE AC. 

INSERT INTO AC IN ENGINEERING_DATA_DATABASE 
SET ACAPN = rACAPN, 

ACAPV = :ACAPV, 

ACATR = :ACATR, 

ACSTA = :ACSTA, 

ACPRM = :ACPRM, 

ACVAL = :ACVAL 


IBMAC 


MODIFY AN EXISTING ROW IN TABLE AC. 

V UDPATE AC IN ENGINEERING_DATA_DAT ABASE 

WHERE ACAPN = : ACAPN AND 
ACAPV = : ACAPV AND 
ACATR = : ACATR AND 
ACSTA = : ACSTA AND 
ACPRM = : ACPRM 


SET ACAPN = 
ACAPV = 
ACATR = 
ACSTA = 


ACPRM = 


ACVAL = 


ACAPN, 

ACAPV, 

ACATR, 

ACSTA, 

ACPRM, 

ACVAL 


IBDAC 

DELETE AN EXISTING ROW IN TABLE AC. 

DELETE FROM AC IN ENGINEERING_DATA_DATABASE 
WHERE ACAPN = rACAPN AND 
ACAPV = : ACAPV AND 
ACATR = : ACATR AND 
ACSTA = : ACSTA AND 
ACPRM = : ACPRM 
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Application Configuration (AC) Routines 


IBOACO 

OBTAIN A ROW IN TABLE AC VIA ACCESS PATH ACO. 

SELECT ACAPN, ACAPV, ACATR, ACSTA, ACPRM, ACVAL 
FROM AC IN ENGINEERING_DATA_DATABASE 
WHERE ACAPN = : ACAPN AND 
ACAPV = : ACAPV AND 
ACATR = : ACATR AND 
ACSTA = : ACSTA AND 
ACPRM = : ACPRM 

ORDER BY ACAPN ASC, ACAPV ASC, ACATR ASC, ACSTA ASC, ACPRM ASC 

IBOACl 

OBTAIN A ROW IN TABLE AC VIA ACCESS PATH ACT. 

SELECT ACAPN, ACAPV, ACATR, ACSTA, ACPRM, ACVAL 
FROM AC IN ENGINEERING_DATA_DATABASE 
WHERE ACAPN = : ACAPN AND 
ACAPV = : ACAPV 

ORDER BY ACAPN ASC, ACAPV ASC 


IBOAC2 

OBTAIN A ROW IN TABLE AC VIA ACCESS PATH AC2. 

SELECT ACAPN, ACAPV, ACATR, ACSTA, ACPRM, ACVAL 
FROM AC IN ENGINEERING_DATA_DATABASE 
WHERE ACAPN = : ACAPN AND 
ACAPV = : ACAPV AND 
ACATR = : ACATR 

ORDER BY ACAPN ASC, ACAPV ASC, ACATR ASC 

IBOAC3 

OBTAIN A ROW IN TABLE AC VIA ACCESS PATH AC3. 

SELECT ACAPN, ACAPV, ACATR, ACSTA, ACPRM, ACVAL 
FROM AC IN ENGINEERING_DATA_DATABASE 
WHERE ACPRM = : ACPRM 
ORDER BY ACPRM ASC 


IBOAC4 

OBTAIN A ROW IN TABLE AC VIA ACCESS PATH AC4. 

SELECT ACAPN, ACAPV, ACATR, ACSTA, ACPRM, ACVAL 
FROM AC IN ENGINEERING_DATA_DATABASE 
WHERE ACAPN = : ACAPN AND 
ACAPV = : ACAPV AND 
ACATR = : ACATR AND 
ACSTA = : ACSTA 

ORDER BY ACAPN ASC, ACAPV ASC, ACATR ASC, ACSTA ASC, ACPRM ASC 
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Application Configuration (AC) Routines 


IBAACO 

OBTAIN A ROW IN TABLE AC USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH ACO. 

SELECT ACAPN, ACAPV, ACATR, ACSTA, ACPRM, ACVAL 
FROM AC IN ENGINEERING_DATA_DATABASE 
WHERE (ACAPN > : ACAPN) 

OR ((ACAPN = : ACAPN) AND (ACAPV > : ACAPV)) 

OR ((ACAPN = : ACAPN AND ACAPV = : ACAPV) AND (ACATR > : ACATR)) 

OR ((ACAPN = : ACAPN AND ACAPV = : ACAPV AND ACATR = : ACATR) AND 
(ACSTA > : ACSTA)) 

OR ((ACAPN = : ACAPN AND ACAPV = : ACAPV AND ACATR = : ACATR AND 
ACSTA = : ACSTA) AND (ACPRM > : ACPRM)) 

OR (ACAPN = : ACAPN AND ACAPV = : ACAPV AND ACATR = : ACATR AND 
ACSTA = ; ACSTA AND ACPRM = : ACPRM) 

ORDER BY ACAPN ASC, ACAPV ASC, ACATR ASC, ACSTA ASC, ACPRM ASC 


IBAACl 

OBTAIN A ROW IN TABLE AC USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH AC1. 

SELECT ACAPN. ACAPV, ACATR, ACSTA, ACPRM, ACVAL 
FROM AC IN ENGINEERING_DATA_DATABASE 
WHERE (ACAPN > : ACAPN) 

OR ((ACAPN = :ACAPN) AND (ACAPV > : ACAPV)) 

OR (ACAPN = : ACAPN AND ACAPV = ; ACAPV) 

ORDER BY ACAPN ASC. ACAPV ASC 


IBAAC2 

OBTAIN A ROW IN TABLE AC USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH AC2. 

SELECT ACAPN, ACAPV. ACATR, ACSTA, ACPRM, ACVAL 
FROM AC IN ENGINEERING.DATA.DATABASE 
WHERE (ACAPN > : ACAPN) 

OR ((ACAPN = :ACAPN) AND (ACAPV > : ACAPV)) 

OR ((ACAPN = : ACAPN AND ACAPV = : ACAPV) AND (ACATR > : ACATR)) 
OR (ACAPN = : ACAPN AND ACAPV = : ACAPV AND ACATR = : ACATR) 
ORDER BY ACAPN ASC, ACAPV ASC, ACATR ASC 


IBAAC3 

OBTAIN A ROW IN TABLE AC USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH AC3. 

SELECT ACAPN. ACAPV, ACATR, ACSTA, ACPRM, ACVAL 
FROM AC IN ENGINEERING.DATA.DATABASE 
WHERE ACPRM >= : ACPRM 
ORDER BY ACPRM ASC 


Revision A 


Information Base Routines B-3 



Application Configuration (AC) Routines 


IBAAC4 

OBTAIN A ROW IN TABLE AC USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH AC4. . 

SELECT ACAPN, ACAPV, ACATR, ACSTA, ACPRM, ACVAL 
FROM AC IN ENGINEERING_DATA_DATABASE 
WHERE (ACAPN > : ACAPN) 

OR ((ACAPN = : ACAPN) AND (ACAPV > : ACAPV)) 

OR ((ACAPN = : ACAPN AND ACAPV = :ACAPV) AND (ACATR > : ACATR)) 

OR ((ACAPN = : ACAPN AND ACAPV = ; ACAPV AND ACATR = : ACATR) AND 
(ACSTA > : ACSTA)) 

OR (ACAPN = : ACAPN AND ACAPV = : ACAPV AND ACATR = : ACATR AND 
ACSTA = : ACSTA) 

ORDER BY ACAPN ASC, ACAPV ASC, ACATR ASC, ACSTA ASC, ACPRM ASC 

IBEACl 

OBTAIN THE NEXT DUPLICATE ROW FROM TABLE AC VIA ACCESS PATH AC1 . 

SAVE THE CURRENT POSITION IN TABLE AC. 

FETCH THE NEXT ROW FROM TABLE AC. 

SET : ACAPN, : ACAPV, : ACATR, : ACSTA, : ACPRM, : ACVAL 


IBEAC2 

OBTAIN THE NEXT DUPLICATE ROW FROM TABLE AC VIA ACCESS PATH AC2 . 
SAVE THE CURRENT POSITION IN TABLE AC. 

FETCH THE NEXT ROW FROM TABLE AC. 

SET : ACAPN, : ACAPV, : ACATR, : ACSTA, : ACPRM, : ACVAL 


IBEAC3 


OBTAIN THE NEXT DUPLICATE ROW FROM TABLE AC VIA ACCESS PATH AC3. 
SAVE THE CURRENT POSITION IN TABLE AC. 

FETCH THE NEXT ROW FROM TABLE AC. 

SET : ACAPN, : ACAPV, : ACATR, : ACSTA, : ACPRM, : ACVAL 


IBEAC4 

OBTAIN THE NEXT DUPLICATE ROW FROM TABLE AC VIA ACCESS PATH AC4. 

SAVE THE CURRENT POSITION IN TABLE AC. 

FETCH THE NEXT ROW FROM TABLE AC. 

SET : ACAPN, : ACAPV, : ACATR, : ACSTA, : ACPRM, ; ACVAL 

IBFACO 

OBTAIN THE FIRST ROW OF TABLE AC, ORDERED BY ACCESS PATH ACO . 

SELECT ACAPN, ACAPV, ACATR, ACSTA, ACPRM, ACVAL 
FROM AC IN ENGINEERING_DATA_DATABASE 

ORDER BY ACAPN ASC, ACAPV ASC, ACATR ASC, ACSTA ASC, ACPRM ASC 
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IBFACl 

OBTAIN THE FIRST ROW OF TABLE AC, ORDERED BY ACCESS PATH ACl. 

SELECT ACAPN, ACAPV, ACATR. ACSTA, ACPRM, ACVAL 
FROM AC IN ENGINEER I NG_DATA_DAT ABASE 
ORDER BY ACAPN ASC, ACAPV ASC 

IBFAC2 

OBTAIN THE FIRST ROW OF TABLE AC, ORDERED BY ACCESS PATH AC2. 

SELECT ACAPN, ACAPV, ACATR, ACSTA, ACPRM, ACVAL 
FROM AC IN ENGINEERING_DATA_DATABASE 
ORDER BY ACAPN ASC, ACAPV ASC, ACATR ASC 

IBFAC3 

OBTAIN THE FIRST ROW OF TABLE AC, ORDERED BY ACCESS PATH AC3. 

SELECT ACAPN, ACAPV, ACATR, ACSTA, ACPRM, ACVAL 
FROM AC IN ENGINEERING_DATA_DATABASE 
ORDER BY ACPRM ASC 

IBFAC4 

OBTAIN THE FIRST ROW OF TABLE AC, ORDERED BY ACCESS PATH AC4. 

SELECT ACAPN, ACAPV, ACATR, ACSTA, ACPRM, ACVAL 
FROM AC IN ENGINEERING_DATA_DATABASE 

ORDER BY ACAPN ASC, ACAPV ASC, ACATR ASC, ACSTA ASC, ACPRM ASC 

IBNACO 

OBTAIN THE NEXT ROW OF TABLE AC, ORDERED BY ACCESS PATH ACO . 

SET : ACAPN. : ACAPV, .ACATR, : ACSTA, : ACPRM, : ACVAL 

IBNACl 

OBTAIN THE NEXT ROW OF TABLE AC, ORDERED BY ACCESS PATH ACl. 

SET : ACAPN, : ACAPV, : ACATR, : ACSTA, : ACPRM, : ACVAL 

IBNAC2 

OBTAIN THE NEXT ROW OF TABLE AC, ORDERED BY ACCESS PATH AC2 . 

SET : ACAPN, : ACAPV, : ACATR, : ACSTA, : ACPRM, : ACVAL 

IBNAC3 

OBTAIN THE NEXT ROW OF TABLE AC, ORDERED BY ACCESS PATH AC3. 

SET : ACAPN, : ACAPV, : ACATR, : ACSTA, : ACPRM, : ACVAL 

IBNAC4 

OBTAIN THE NEXT ROW OF TABLE AC, ORDERED BY ACCESS PATH AC4. 

SET : ACAPN. : ACAPV, : ACATR, : ACSTA, : ACPRM, : ACVAL 
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Application Information (AI) Routines 

The AI table defines applications under control of EDL. 

IBSAI 

STORE A NEW ROW IN TABLE AI . 

INSERT INTO AI IN ENGINEERING_DATA_DATABASE 


AIAPN = 

AIAPN, 

AIAPV = 

AIAPV, 

AISTA = 

AISTA, 

AILIC = 

AILIC, 

AILICF = 

:AILICF 


IBMAI 

MODIFY AN EXISTING ROW IN TABLE AI . 

UDPATE AI IN ENGINEERING_DATA_DAT ABASE 


WHERE AIAPN 

= : AIAPN 

AIAPV 

= : AIAPV 

SET AIAPN = 

: AIAPN, 

AIAPV = 

: AIAPV, 

AISTA = 

:AISTA, 

AILIC = 

:AILIC, 

AILICF = 

:AILICF 


IBDAI 

DELETE AN EXISTING ROW IN TABLE AI . 

DELETE FROM AI IN ENGINEERING DATA DATABASE 
WHERE AIAPN = :AIAPN AND 
AIAPV = :AIAPV 


IBOAIO 

OBTAIN A ROW IN TABLE AI VIA ACCESS PATH AID. 

SELECT AIAPN, AIAPV, AISTA, AILIC, AILICF 
FROM AI IN ENGINEERING_DATA_DATABASE 
WHERE AIAPN = : AIAPN AND 
AIAPV = : AIAPV 

ORDER BY AIAPN ASC, AIAPV ASC 


IBOAIl 

OBTAIN A ROW IN TABLE AI VIA ACCESS PATH All. 

SELECT AIAPN, AIAPV, AISTA, AILIC, AILICF 
FROM AI IN ENGINEERING_DATA_DATABASE 
WHERE AIAPN = : AIAPN 
ORDER BY AIAPN ASC, AIAPV ASC 
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IBAAIO 

OBTAIN A ROW IN TABLE AI USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH AID. 

SELECT AIAPN, AIAPV, AISTA. AILIC, AILICF 
FROM AI IN ENGINEER I NG_DATA_DATABASE 
WHERE (AIAPN > .AIAPN) 

OR ((AIAPN = : AIAPN) AND (AIAPV > : AIAPV)) 

OR (AIAPN = .-AIAPN AND AIAPV = : AIAPV) 

ORDER BY AIAPN ASC, AIAPV ASC 


IBAAIl 

OBTAIN A ROW IN TABLE AI USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH All. o 

SELECT AIAPN, AIAPV, AISTA, AILIC, AILICF 
FROM AI IN ENGINEERING_DATA_DATABASE 
WHERE AIAPN >= -.AIAPN 
ORDER BY AIAPN ASC, AIAPV ASC 


IBEAIl 

OBTAIN THE NEXT DUPLICATE ROW FROM TABLE AI VIA ACCESS PATH All. 
SAVE THE CURRENT POSITION IN TABLE AI . 

FETCH THE NEXT ROW FROM TABLE AI . 

SET :AIAPN, :AIAPV, :AISTA, :AILIC, :AILICF 


IBFAIO 

OBTAIN THE FIRST ROW OF TABLE AI , ORDERED BY ACCESS PATH AID. 
SELECT AIAPN, AIAPV, AISTA, AILIC, AILICF 
FROM AI IN ENGINEERING_DATA_DATABASE 
ORDER BY AIAPN ASC, AIAPV ASC 


IBFAIl 

OBTAIN THE FIRST ROW OF TABLE AI , ORDERED BY ACCESS PATH All. 
SELECT AIAPN, AIAPV, AISTA, AILIC, AILICF 
FROM AI IN ENGINEERING_DATA_DATABASE 
ORDER BY AIAPN ASC, AIAPV ASC 


IBNAIO 


OBTAIN THE NEXT ROW OF TABLE AI , ORDERED BY 
SET :AIAPN, .-AIAPV, :AISTA, :AILIC, 


ACCESS PATH AID. 
cAILICF 


IBNAIl 


OBTAIN THE NEXT ROW OF TABLE AI , ORDERED BY 
SET :AIAPN, :AIAPV, :AISTA, :AILIC, 


ACCESS PATH All. 
lAILICF 
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Application Data Type (AT) Routines 

The AT table defines the types of data controlled by EDL. 

IBSAT 

STORE A NEW ROW IN TABLE AT. 

INSERT INTO AT IN ENGINEERING_DATA_DATABASE 


SET ATADT = 

ATADT . 

ATNAM = 

ATNAM. 

ATFTC = 

ATFTC. 

ATTNA = 

ATTNA, 

ATSIDR = 

: ATS I DR 


IBMAT 

MODIFY AN EXISTING ROW IN TABLE AT. 

UDPATE AT IN ENGINEERING_DATA_DATABASE 


WHERE ATADT 

= .-ATADT 

SET ATADT = 

: ATADT, 

ATNAM = 

-.ATNAM, 

ATFTC = 

: ATFTC, 

ATTNA = 

: ATTNA, 

ATSIDR = 

:ATSIDR 


IBDAT 

DELETE AN EXISTING ROW IN TABLE AT. 

DELETE FROM AT IN ENGINEERING_DATA_DATABASE 

I•n-ICDC AXAnx . . AXAnx 

m n I I I i 


IBOATO 

OBTAIN A ROW IN TABLE AT VIA ACCESS PATH ATO. 

SELECT ATADT, ATNAM, ATFTC, ATTNA, ATSIDR 
FROM AT IN ENGINEER I NG_DATA_DATABASE 
WHERE ATADT = : ATADT 
ORDER BY ATADT ASC 


IBOATl 

OBTAIN A ROW IN TABLE AT VIA ACCESS PATH ATI. 

SELECT ATADT, ATNAM. ATF.TC, ATTNA, ATSIDR 
FROM AT IN ENGINEERING.DATA.DATABASE 
WHERE ATNAM = ; ATNAM 
ORDER BY ATNAM ASC 


IBOAT2 

OBTAIN A ROW IN TABLE AT VIA ACCESS PATH AT2. 

SELECT ATADT, ATNAM, ATFTC, ATTNA, ATSIDR 
FROM AT IN ENGINEERING_DATA_DATABASE 
WHERE ATFTC = : ATFTC 
ORDER BY ATFTC ASC 
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IBAATO 

OBTAIN A ROW IN TABLE AT USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH ATO. 

SELECT ATADT, ATNAM, ATFTC, ATTNA, ATSIDR 
FROM AT IN ENGINEERING_DATA_DATABASE 
WHERE ATADT >= : ATADT 
ORDER BY ATADT ASC 


IBAATl 

OBTAIN A ROW IN TABLE AT USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH ATI. 

SELECT ATADT, ATNAM, ATFTC, ATTNA, ATSIDR 
FROM AT IN ENGINEERING.DATA.DATABASE 
WHERE ATNAM >= : ATNAM 
ORDER BY ATNAM ASC 


IBAAT2 

OBTAIN A ROW IN TABLE AT USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH AT2. 

SELECT ATADT, ATNAM, ATFTC, ATTNA, ATSIDR 
FROM AT IN ENGINEERING_DATA_DATABASE 
WHERE ATFTC >= : ATFTC 
ORDER BY ATFTC ASC 


IBEAT2 

OBTAIN THE NEXT DUPLICATE ROW FROM TABLE AT VIA ACCESS PATH AT2. 
SAVE THE CURRENT POSITION IN TABLE AT. 

FETCH THE NEXT ROW FROM TABLE AT. 

SET : ATADT, : ATNAM, : ATFTC, : ATTNA, : ATSIDR 

IBFATO 

OBTAIN THE FIRST ROW OF TABLE AT, ORDERED BY ACCESS PATH ATO. 
SELECT ATADT, ATNAM, ATFTC, ATTNA, ATSIDR 
FROM AT IN ENGINEERING_DATA_DATABASE 
ORDER BY ATADT ASC 

IBFATl 

OBTAIN THE FIRST ROW OF TABLE AT, ORDERED BY ACCESS PATH ATI. 
SELECT ATADT, ATNAM, ATFTC, ATTNA, ATSIDR 
FROM AT IN ENGINEERING_DATA_DATABASE 
ORDER BY ATNAM ASC 

IBFAT2 

OBTAIN THE FIRST ROW OF TABLE AT, ORDERED BY ACCESS PATH AT2. 
SELECT ATADT, ATNAM, ATFTC, ATTNA, ATSIDR 
FROM AT IN ENGINEERING_DATA_DATABASE 
ORDER BY ATFTC ASC 
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IBNATO 

OBTAIN THE NEXT ROW OF TABLE AT, ORDERED BY ACCESS PATH ATO. 
SET rATADT,. :ATNAM. :ATFTC, :ATTNA, lATSIDR 

IBNATl 

OBTAIN THE NEXT ROW OF TABLE AT, ORDERED BY ACCESS PATH ATI. 
SET :ATADT, lATNAM, :ATFTC, :ATTNA, rATSIDR 

IBNAT2 

OBTAIN THE NEXT ROW OF TABLE AT, ORDERED BY ACCESS PATH AT2 . 
SET :ATADT, :ATNAM, :ATFTC, :ATTNA, rATSIDR 


IBOFTAT 

USING COSET FTAT, OBTAIN THE ROW FROM TABLE FT THAT OWNS SPECIFIC 
ROWS IN MEMBER TABLE AT 

SELECT FTFTC, FTNAM, FTAPN, FTLFN, FTCHR, FTMUL, FTLFNR, 

FTPRT , 

FTTYP 

INTO : FTFTC, : FTNAM, : FTAPN. : FTLFN, : FTCHR, : FTMUL, : FTLFNR. 

: FTPRT, : FTTYP 

FROM FT IN ENGINEERING_DATA_DATABASE 
WHERE FTFTC = :ATFTC 

IBFFTAT 

OBTAIN THE FIRST ROW FROM MEMBER TABLE AT WITHIN COSET FTAT, USING 
ACCESS PATH AT2. 

SELECT ATADT, ATNAM, ATFTC, ATTNA, ATSIDR 
FROM AT IN ENGINEERING_DATA_DATABASE 
WHERE ATFTC = : FTFTC 
ORDER BY ATFTC ASC 

IBNFTAT 

OBTAIN THE NEXT ROW FROM MEMBER TABLE AT WITHIN COSET FTAT. 

SET rATADT, r ATNAM, r ATFTC, r ATTNA, rATSIDR 
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Data Descriptor (DD) Routines 

The DD table contains attributes and values of data descriptors. 

IBSDD 

STORE A NEW ROW IN TABLE DD. 

INSERT INTO DD IN ENGINEERING_DATA_DATABASE 
SET DDEDN = ;DDEDN, 

DDATR = :DDATR, 

DDVAL = :DDVAL 

IBMDD 

MODIFY AN EXISTING ROW IN TABLE DD. 

UDPATE DD IN ENGINEERING_DATA_DATABASE 
WHERE DDEDN = : DDEDN AND 
DDATR = : DDATR AND 
DDVAL = : DDVAL 
SET DDEDN = : DDEDN. 

DDATR = : DDATR, 

DDVAL = : DDVAL 


IBDDD 


DELETE AN EXISTING ROW IN TABLE DD. 

DELETE FROM DD IN ENGINEERING_DATA_DATABASE 


WHERE DDEDN 

DDATR = 
DDVAL = 


DDEDN AND 
DDATR AND 
DDVAL 


IBODDO 

OBTAIN A ROW IN TABLE DD VIA ACCESS PATH DDO . 
SELECT DDEDN. DDATR, DDVAL 
FROM DD IN ENGINEERING_DATA_DATABASE 
WHERE DDEDN = : DDEDN AND 
DDATR = : DDATR AND 
DDVAL = : DDVAL 

ORDER BY DDEDN ASC, DDATR ASC, DDVAL ASC 


IBODDl 

OBTAIN A ROW IN TABLE DD VIA ACCESS PATH DD1. 
SELECT DDEDN. DDATR, DDVAL 
FROM DD IN ENGINEERING_DATA_DATABASE 
WHERE DDEDN = : DDEDN 

ORDER BY DDEDN ASC. DDATR ASC, DDVAL ASC 
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IBODD2 

OBTAIN A ROW IN TABLE DD VIA ACCESS PATH DD2. 

SELECT DDEDN, DDATR, DDVAL 
FROM DD IN ENGINEERING_DATA_DATABASE 
WHERE DDATR = : DDATR AND 
DDVAL = : DDVAL 

ORDER BY DDATR ASC, DDVAL ASC 

IBODD3 

OBTAIN A ROW IN TABLE DD VIA ACCESS PATH DD3. 

SELECT DDEDN, DDATR. DDVAL 
FROM DD IN ENGINEERING_DATA_DATABASE 
WHERE DDEDN = : DDEDN AND 
DDATR = : DDATR 

ORDER BY DDEDN ASC, DDATR ASC, DDVAL ASC 

IBADDO 

OBTAIN A ROW IN TABLE DD USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH DDO . 

SELECT DDEDN, DDATR, DDVAL 

FROM DD IN ENGINEERING_DATA_DATABASE 

WHERE (DDEDN > : DDEDN) 

OR ((DDEDN = : DDEDN) AND (DDATR > : DDATR)) 

OR ((DDEDN = : DDEDN AND DDATR = : DDATR) AND (DDVAL > : DDVAL)) 
OR (DDEDN = : DDEDN AND DDATR = :DDATR AND DDVAL = : DDVAL) 
ORDER BY DDEDN ASC, DDATR ASC. DDVAL ASC 


IBADDl 

OBTAIN A ROW IN TABLE DD USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH DD1. 

SELECT DDEDN, DDATR, DDVAL 

FROM DD IN ENGINEERING_DATA_DATABASE 

WHERE DDEDN >= : DDEDN 

ORDER BY DDEDN ASC. DDATR ASC. DDVAL ASC 


IBADD2 

OBTAIN A ROW IN TABLE DD USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH DD2. 

SELECT DDEDN, DDATR, DDVAL 

FROM DD IN ENGINEERING.DATA^DATABASE 

WHERE (DDATR > : DDATR) 

OR ((DDATR = : DDATR) AND (DDVAL > : DDVAL)) 

OR (DDATR = : DDATR AND DDVAL = : DDVAL) 

ORDER BY DDATR ASC, DDVAL ASC 
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IBADD3 

OBTAIN A ROW IN TABLE DD USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH DD3. 

SELECT DDEDN, DDATR, DDVAL 

FROM DD IN ENGINEERING_DATA_DATABASE 

WHERE (DDEDN > : DDEDN) 

OR ((DDEDN = : DDEDN) AND (DDATR > : DDATR)) 

OR (DDEDN = : DDEDN AND DDATR = : DDATR) 

ORDER BY DDEDN ASC, DDATR ASC, DDVAL ASC 


IBEDDl 

OBTAIN THE NEXT DUPLICATE ROW FROM TABLE DD VIA ACCESS PATH DD1. 
SAVE THE CURRENT POSITION IN TABLE DD. 

FETCH THE NEXT ROW FROM TABLE DD. 

SET : DDEDN, : DDATR, : DDVAL 

IBEDD2 

OBTAIN THE NEXT DUPLICATE ROW FROM TABLE DD VIA ACCESS PATH DD2 . 
SAVE THE CURRENT POSITION IN TABLE DD. 

FETCH THE NEXT ROW FROM TABLE DD. 

SET : DDEDN, : DDATR, : DDVAL 

IBEDD3 

OBTAIN THE NEXT DUPLICATE ROW FROM TABLE DD VIA ACCESS PATH DD3. 
SAVE THE CURRENT POSITION IN TABLE DD. 

FETCH THE NEXT ROW FROM TABLE DD. 

SET : DDEDN, : DDATR, : DDVAL 


IBFDDO 

OBTAIN THE FIRST ROW OF TABLE DD, ORDERED BY ACCESS PATH DDO . 
SELECT DDEDN, DDATR, DDVAL 
FROM DD IN ENGINEER I NG_DATA_DAT ABASE 
ORDER BY DDEDN ASC, DDATR ASC, DDVAL ASC 


IBFDDl 

OBTAIN THE FIRST ROW OF TABLE DD, ORDERED BY ACCESS PATH DDl . 
SELECT DDEDN, DDATR, DDVAL 
FROM DD IN ENGINEERING_DATA_DATABASE 
ORDER BY DDEDN ASC. DDATR ASC, DDVAL ASC 


IBFDD2 

OBTAIN THE FIRST ROW OF TABLE DD, ORDERED BY ACCESS PATH DD2. 
SELECT DDEDN, DDATR, DDVAL 
FROM DD IN ENGINEERING_DATA_DATABASE 
ORDER BY DDATR ASC, DDVAL ASC 
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IBFDD3 

OBTAIN THE FIRST ROW OF TABLE DD, ORDERED BY ACCESS PATH DD3. 
SELECT DDEDN, DDATR, DDVAL 
FROM DD IN ENGINEERING_DATA_DATABASE 
ORDER BY DDEDN ASC, DDATR ASC, DDVAL ASC 

IBNDDO 

OBTAIN THE NEXT ROW OF TABLE DD, ORDERED BY ACCESS PATH DDO. 
SET : DDEDN, : DDATR, : DDVAL 

IBNDDl 

OBTAIN THE NEXT ROW OF TABLE DD, ORDERED BY ACCESS PATH DD1 . 
SET : DDEDN, : DDATR, : DDVAL 

IBNDD2 

OBTAIN THE NEXT ROW OF TABLE DD, ORDERED BY ACCESS PATH DD2. 
SET : DDEDN, : DDATR, : DDVAL 

IBNDD3 

OBTAIN THE NEXT ROW OF TABLE DD, ORDERED BY ACCESS PATH DD3. 
SET : DDEDN, : DDATR, : DDVAL 


IBODIDD 


USING CQSET DIDD OBTAIN THE ROW FROM TABLE DI THAT OWNS SPECIFIC 
ROWS IN MEMBER TABLE DD 

SELECT DIEDN, DIFIL, DINAM, DISID, DIADT, DIEDT, DIUSR, DIREV, 
DISTA, DIDATC, DIDATM, DIDATR, DITTL, DITIMC, DITIMM, DITIMR 
INTO :DIEDN, :DIFIL, :DINAM, :DISID, :DIADT, :DIEDT, :DIUSR, 
:DIREV. :DISTA, :DIDATC, rDIDATM, :DIDATR, iDITTL, rDITIMC, 
:DITIMM, :DITIMR 

FROM DI IN ENGINEERING_DATA_DATABASE 
WHERE DIEDN = : DDEDN 


IBFDIDD 

OBTAIN THE FIRST ROW FROM MEMBER TABLE DD WITHIN COSET DIDD, USING 
ACCESS PATH DD1. 

SELECT DDEDN, DDATR, DDVAL 

FROM DD IN ENGINEERING_DATA_DATABASE 

WHERE DDEDN = : DIEDN 

ORDER BY DDEDN ASC, DDATR ASC, DDVAL ASC 


IBNDIDD 

OBTAIN THE NEXT ROW FROM MEMBER TABLE DD WITHIN COSET DIDD. 
SET -.DDEDN, : DDATR, ; DDVAL 
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Default Files (DF) Routines 

The DF table contains the logical and actual file name pairs that are passed as 
parameters to an application. EDL users can specify their own set of such pairs for 
every application. 

IBSDF 

STORE A NEW ROW IN TABLE DF. 

INSERT INTO DF IN ENGINEERING_DATA_DATABASE 
SET DFUSR = :DFUSR, 

DFAPN = :DFAPN, 

DFFIL = :DFFIL, 

DFMOD = :DFMOD. 

DFLFN = :DFLFN 


IBMDF 

MODIFY AN EXISTING ROW IN TABLE DF. 

UDPATE DF IN ENGINEERING_DATA_DATABASE 
WHERE DFUSR = : DFUSR AND 
DFAPN = : DFAPN AND 
DFLFN = : DFLFN 
SET DFUSR = : DFUSR, 

DFAPN = : DFAPN, 

DFFIL = :DFFIL, 

DFMOD = : DFMOD, 

DFLFN = : DFLFN 


IBDDF 

DELETE AN EXISTING ROW IN TABLE DF. 

DELETE FROM DF IN ENGINEERING_DATA_DATABASE 
WHERE DFUSR = : DFUSR AND 
DFAPN = : DFAPN AND 
DFLFN = :DFLFN 


IBODFO 

OBTAIN A ROW IN TABLE DF VIA ACCESS PATH DFO. 

SELECT DFUSR, DFAPN, DFFIL. DFMOD, DFLFN 
FROM DF IN ENGINEERING_DATA_DATABASE 
WHERE DFUSR = :DFUSR AND 
DFAPN = : DFAPN AND 
DFLFN = :DFLFN 

ORDER BY DFUSR ASC, DFAPN ASC, DFLFN ASC 
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IBODFl 

OBTAIN A ROW IN TABLE DF VIA ACCESS PATH DF1. 

SELECT DFUSR, DFAPN, DFFIL, DFMOD. DFLFN 
FROM DF IN ENGINEERING_DATA_DATABASE 
WHERE DFAPN = : DFAPN AND 
DFFIL = :DFFIL AND 
DFUSR = : DFUSR 

ORDER BY DFAPN ASC, DFFIL ASC, DFUSR ASC 

IBODF2 

OBTAIN A ROW IN TABLE DF VIA ACCESS PATH DF2 . 

SELECT DFUSR, DFAPN, DFFIL, DFMOD, DFLFN 
FROM DF IN ENGINEERING_DATA_DATABASE 
WHERE DFUSR = : DFUSR AND 
DFAPN = : DFAPN 

ORDER BY DFUSR ASC, DFAPN ASC, DFLFN ASC 

IBODF3 

OBTAIN A ROW IN TABLE DF VIA ACCESS PATH DF3 . 

SELECT DFUSR, DFAPN, DFFIL, DFMOD, DFLFN 
FROM DF IN ENGINEERING_DATA_DATABASE 
WHERE DFUSR = : DFUSR 

ORDER BY DFUSR ASC, DFAPN ASC, DFLFN ASC 

IBODF4 

OBTAIN A ROW IN TABLE DF VIA ACCESS PATH DF4 . 

SELECT DFUSR, DFAPN, DFFIL, DFMOD, DFLFN 
FROM DF IN ENGINEERING_DATA_DATABASE 
WHERE DFFIL = iDFFIL 
ORDER BY DFFIL ASC 

IBADFO 

OBTAIN A ROW IN TABLE DF USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH DFO . 

SELECT DFUSR, DFAPN, DFFIL, DFMOD, DFLFN 
FROM DF IN ENGINEERING_DATA_DATABASE 
WHERE (DFUSR > ; DFUSR) 

OR ((DFUSR = : DFUSR) AND (DFAPN > : DFAPN)) 

OR ((DFUSR = iDFUSR AND DFAPN = :DFAPN) AND (DFLFN > :DFLFN)) 
OR (DFUSR = : DFUSR AND DFAPN = : DFAPN AND DFLFN = : DFLFN) 
ORDER BY DFUSR ASC, DFAPN ASC, DFLFN ASC 
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IBADFl 

OBTAIN A ROW IN TABLE DF USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH DF1. 

SELECT DFUSR, DFAPN, DFFIL, DFMOD, DFLFN 
FROM DF IN ENGINEERING_DATA_DATABASE 
WHERE (DFAPN > : DFAPN) 

OR ((DFAPN = :DFAPN) AND (DFFIL > :DFFIL)) 

OR ((DFAPN = :DFAPN AND DFFIL = :DFFIL) AND (DFUSR > :DFUSR)) 
OR (DFAPN = .'DFAPN AND DFFIL = :DFFIL AND DFUSR = :DFUSR) 
ORDER BY DFAPN ASC, DFFIL ASC, DFUSR ASC 


IBADF2 

OBTAIN A ROW IN TABLE DF USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH DF2. 

SELECT DFUSR, DFAPN, DFFIL, DFMOD, DFLFN 
FROM DF IN ENGINEERING_DATA_DATABASE 
WHERE (DFUSR > : DFUSR) 

OR ((DFUSR = :DFUSR) AND (DFAPN > .DFAPN)) 

OR (DFUSR = : DFUSR AND DFAPN = : DFAPN) 

ORDER BY DFUSR ASC, DFAPN ASC, DFLFN ASC 


IBADF3 

OBTAIN A ROW IN TABLE DF USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH DF3 . 

SELECT DFUSR, DFAPN, DFFIL, DFMOD, DFLFN 
FROM DF IN ENGINEERING_DATA_DAT ABASE 
WHERE DFUSR >= : DFUSR 

ORDER BY DFUSR ASC, DFAPN ASC, DFLFN ASC 


IBADF4 

OBTAIN A ROW IN TABLE DF USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH DF4. 

SELECT DFUSR, DFAPN, DFFIL, DFMOD, DFLFN 
FROM DF IN ENGINEERING_DATA_DATABASE 
WHERE DFFIL >= :DFFIL 
ORDER BY DFFIL ASC 


IBEDF2 

OBTAIN THE NEXT DUPLICATE ROW FROM TABLE DF VIA ACCESS PATH DF2. 
SAVE THE CURRENT POSITION IN TABLE DF. 

FETCH THE NEXT ROW FROM TABLE DF. 

SET : DFUSR, : DFAPN, : DFFIL, : DFMOD, : DFLFN 


IBEDF3 

OBTAIN THE NEXT DUPLICATE ROW FROM TABLE DF VIA ACCESS PATH DF3. 
SAVE THE CURRENT POSITION IN TABLE DF. 

FETCH THE NEXT ROW FROM TABLE DF. 

SET :DFUSR, :DFAPN, :DFFIL, :DFMOD, :DFLFN 
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IBEDF4 

OBTAIN THE NEXT DUPLICATE ROW FROM TABLE DF VIA ACCESS PATH DF4. 
SAVE THE CURRENT POSITION IN TABLE DF. 

FETCH THE NEXT ROW FROM TABLE DF. 

SET :DFUSR. :DFAPN, iDFFIL, :DFMOD, :DFLFN 

IBFDFO 

OBTAIN THE FIRST ROW OF TABLE DF, ORDERED BY ACCESS PATH DFO. 
SELECT DFUSR, DFAPN, DFFIL, DFMOD, DFLFN 
FROM DF IN ENGINEER I NG_DATA_DAT ABASE 
ORDER BY DFUSR ASC, DFAPN ASC, DFLFN ASC 

IBFDFl 

OBTAIN THE FIRST ROW OF TABLE DF , ORDERED BY ACCESS PATH DFl. 
SELECT DFUSR. DFAPN, DFFIL, DFMOD, DFLFN 
FROM DF IN ENGINEERING_DATA_DAT ABASE 
ORDER BY DFAPN ASC, DFFIL ASC, DFUSR ASC 

IBFDF2 

OBTAIN THE FIRST ROW OF TABLE DF , ORDERED BY ACCESS PATH DF2 . 
SELECT DFUSR, DFAPN. DFFIL, DFMOD, DFLFN 
FROM DF IN ENGINEERING_DATA_DAT ABASE 
ORDER BY DFUSR ASC, DFAPN ASC, DFLFN ASC 

IBFDF3 

OBTAIN THE FIRST ROW OF TABLE DF, ORDERED BY ACCESS PATH DF3 . 
SELECT DFUSR, DFAPN, DFFIL, DFMOD, DFLFN 
FROM DF IN ENGINEERING_DATA_DATABASE 
ORDER BY DFUSR ASC, DFAPN ASC, DFLFN ASC 

IBFDF4 

OBTAIN THE FIRST ROW OF TABLE DF, ORDERED BY ACCESS PATH DF4 . 
SELECT DFUSR, DFAPN, DFFIL, DFMOD, DFLFN 
FROM DF IN ENGINEERING_DATA_DATABASE 
ORDER BY DFFIL ASC 

IBNDFO 

OBTAIN THE NEXT ROW OF TABLE DF, ORDERED BY ACCESS PATH DFO. 

SET :DFUSR, :DFAPN, :DFFIL, :DFMOD, :DFLFN 

IBNDFl 

OBTAIN THE NEXT ROW OF TABLE DF, ORDERED BY ACCESS PATH DFl. 

SET :DFUSR, :DFAPN, :DFFIL, :DFMOD, :DFLFN 
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IBNDF2 

OBTAIN THE NEXT ROW OF TABLE DF, ORDERED BY ACCESS PATH DF2. 

SET :DFUSR, :DFAPN, :DFFIL. :DFMOD, :DFLFN 

IBNDF3 

OBTAIN THE NEXT ROW OF TABLE DF. ORDERED BY ACCESS PATH DF3. 

SET :DFUSR, :DFAPN, :DFFIL, :DFMOD, :DFLFN 

IBNDF4 

OBTAIN THE NEXT ROW OF TABLE DF, ORDERED BY ACCESS PATH DF4. 

SET :DFUSR, :DFAPN, :DFFIL, :DFMOD, :DFLFN 

IBOUIDF 

USING COSET UIDF, OBTAIN THE ROW FROM TABLE UI THAT OWNS SPECIFIC 
ROWS IN MEMBER TABLE DF 

SELECT UIUSR, UIPWD, UISTA. UIUUN, UIDPT, UICMD, UIFIN, UIMIN, 
UILNA, UITTL, UIDELS, UIDELD, UISTR, UICTY, UIPHO, UIEDT 
INTO :UIUSR, rUIPWD, :UISTA, :UIUUN, rUIDPT. :UICMD, :UIFIN, 
:UIMIN, rUILNA, :UITTL, lUIDELS, :UIDELD, lUISTR, rUICTY, 

: UIPHO. : UIEDT 

FROM UI IN ENGINEERING_DATA_DATABASE 
WHERE UIUSR = :DFUSR 

IBFUIDF 

OBTAIN THE FIRST ROW FROM MEMBER TABLE DF WITHIN COSET UIDF, USING 
ACCESS PATH DF3. 

SELECT DFUSR, DFAPN, DFFIL, DFMOD, DFLFN 
FROM DF IN ENGINEERING_DATA_DATABASE 
WHERE DFUSR = : UIUSR 

ORDER BY DFUSR ASC, DFAPN ASC, DFLFN ASC 


IBNUIDF 

OBTAIN THE NEXT ROW FROM MEMBER TABLE DF WITHIN COSET UIDF. 
SET : DFUSR, : DFAPN, : DFFIL, : DFMOD, : DFLFN 
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Engineering Data Information (DI) Routines 

The DI table contains the basic information for each user’s engineering data. 

IBSDI 

STORE A NEW ROW IN TABLE DI. 

INSERT INTO DI IN ENGINEERING_DATA_DATABASE 


SET DIEDN = 

DIEDN, 

DIFIL = 

DIFIL, 

DINAM » 

DINAM, 

DISID = 

DISID, 

DIADT = 

DIADT, 

DIEDT = 

DIEDT, 

DIUSR = 

DIUSR, 

DIREV = 

DIREV, 

DISTA = 

DISTA, 

DIDATC = 

: DIDATC, 

DIDATM = 

: DIDATM, 

DIDATR = 

: DIDATR, 

DITTL = 

DITTL, 

DITIMC = 

iDITIMC, 

DITIMM = 

:DITIMM, 

DITIMR = 

: DITIMR 


IBMDI 

MODIFY AN EXISTING ROW IN TABLE DI . 

UDPATE DI IN ENGINEERING_DATA_DATABASE 
WHERE DIEDN = :DIEDN 


SET DIEDN = 

DIEDN, 

DIFIL = 

DIFIL, 

DINAM = 

DINAM, 

DISID = 

DISID, 

DIADT = 

DIADT, 

DIEDT = 

DIEDT, 

DIUSR = 

DIUSR, 

DIREV = 

DIREV, 

DISTA = 

DISTA, 

DIDATC = 

: DIDATC, 

DIDATM = 

: DIDATM, 

DIDATR = 

: DIDATR, 

DITTL = 

DITTL, 

DITIMC = 

: DITIMC, 

DITIMM = 

:DITIMM, 

DITIMR = 

iDITIMR 


IBDDI 

DELETE AN EXISTING ROW IN TABLE DI . 

DELETE FROM DI IN ENGINEERING_DATA_DATABASE 
WHERE DIEDN = : DIEDN 
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IBODIO 

OBTAIN A ROW IN TABLE DI VIA ACCESS PATH DIO. 

SELECT DIEDN, DIFIL, DINAM, DISID, DIADT, DIEDT, DIUSR, DIREV, 
DISTA, DIDATC, DIDATM, DIDATR, DITTL, DITIMC, DITIMM, DITIMR 
FROM DI IN ENGINEERING_DATA_DATABASE 
WHERE DIEDN = : DIEDN 
ORDER BY DIEDN ASC 

IBODIl 

OBTAIN A ROW IN TABLE DI VIA ACCESS PATH Dll. 

SELECT DIEDN, DIFIL, DINAM, DISID, DIADT, DIEDT, DIUSR, DIREV, 
DISTA, DIDATC, DIDATM, DIDATR, DITTL, DITIMC, DITIMM, DITIMR 
FROM DI IN ENGINEERING_DATA_DATABASE 
WHERE DINAM = : DINAM 
ORDER BY DISID ASC, DIREV ASC 

IBODI2 

OBTAIN A ROW IN TABLE DI VIA ACCESS PATH DI2. 

SELECT DIEDN, DIFIL, DINAM, DISID, DIADT, DIEDT, DIUSR, DIREV, 
DISTA, DIDATC, DIDATM, DIDATR, DITTL, DITIMC, DITIMM, DITIMR 
FROM DI IN ENGINEERING_DATA_DATABASE 
WHERE DIFIL = :DIFIL 

ORDER BY DINAM ASC, DISID ASC, DIREV ASC 

IBODI3 

OBTAIN A ROW IN TABLE DI VIA ACCESS PATH DI3. 

SELECT DIEDN, DIFIL, DINAM, DISID, DIADT, DIEDT, DIUSR. DIREV, 
DISTA, DIDATC, DIDATM. DIDATR, DITTL, DITIMC, DITIMM, DITIMR 
FROM DI IN ENGINEERING_DATA_DATABASE 
WHERE DINAM = : DINAM AND 
DISID = :DISID AND 
DIFIL = -.DIFIL 

ORDER BY DINAM ASC. DISID ASC, DIFIL ASC 

IBODI4 

OBTAIN A ROW IN TABLE DI VIA ACCESS PATH DI4. 

SELECT DIEDN, DIFIL. DINAM, DISID, DIADT, DIEDT, DIUSR, DIREV, 
DISTA. DIDATC, DIDATM, DIDATR, DITTL, DITIMC, DITIMM, DITIMR 
FROM DI IN ENGINEERING_DATA_DATABASE 
WHERE DIEDT = : DIEDT 
ORDER BY DIEDT ASC 

IBODI5 

OBTAIN A ROW IN TABLE DI VIA ACCESS PATH DI5. 

SELECT DIEDN, DIFIL, DINAM, DISID, DIADT, DIEDT, DIUSR, DIREV, 
DISTA, DIDATC, DIDATM, DIDATR, DITTL. DITIMC, DITIMM, DITIMR 
FROM DI IN ENGINEERING_DATA_DAT ABASE 
WHERE DIADT = -.DIADT 
ORDER BY DIADT ASC 
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IBODI6 

OBTAIN A ROW IN TABLE DI VIA ACCESS PATH DI6. 

SELECT DIEDN, DIFIL, DINAM, DISID, DIADT, DIEDT, DIUSR, DIREV, 

DISTA, DIDATC, DIDATM, DIDATR, DITTL, DITIMC, DITIMM, DITIMR 
FROM DI IN ENGINEERING_DATA_DATABASE 
WHERE DIUSR = : DIUSR 
ORDER BY DIUSR ASC 

IBADIO 

OBTAIN A ROW IN TABLE DI USING AN APPROXIMATE KEY VALUE AND ACCESS PATH DIO. 
SELECT DIEDN, DIFIL, DINAM, DISID, DIADT, DIEDT, DIUSR, DIREV, 

DISTA, DIDATC, DIDATM, DIDATR, DITTL, DITIMC, DITIMM, DITIMR 
FROM DI IN ENGINEERING_DATA_DATABASE 
WHERE DIEDN >= : DIEDN 
ORDER BY DIEDN ASC 

IBADIl 

OBTAIN A ROW IN TABLE DI USING AN APPROXIMATE KEY VALUE AND ACCESS PATH Dll. 
SELECT DIEDN, DIFIL, DINAM, DISID, DIADT, DIEDT, DIUSR, DIREV, 

DISTA, DIDATC, DIDATM, DIDATR, DITTL, DITIMC, DITIMM, DITIMR 
FROM DI IN ENGINEER I NG_DATA_DAT ABASE 
WHERE DINAM >= : DINAM 

ORDER BY DINAM ASC, DISID ASC, DIREV ASC 

IBADI3 

OBTAIN A ROW IN TABLE DI USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH DI3. 

SELECT DIEDN, DIFIL, DINAM, DISID, DIADT, DIEDT, DIUSR, DIREV, 

DISTA, DIDATC, DIDATM, DIDATR, DITTL, DITIMC, DITIMM, DITIMR 
FROM DI IN ENGINEERING_DATA_DATABASE 
WHERE (DINAM > : DINAM) 

OR ((DINAM = :DINAM) AND (DISID > :DISID)) 

OR ((DINAM = :DINAM AND DISID = :DISID) AND (DIFIL > :DIFIL)) 

OR (DINAM = :DINAM AND DISID = :DISID AND DIFIL = :DIFIL) 

ORDER BY DINAM ASC, DISID ASC, DIFIL ASC 

IBADI4 

OBTAIN A ROW IN TABLE DI USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH DI4. 

SELECT DIEDN, DIFIL, DINAM, DISID, DIADT, DIEDT, DIUSR, DIREV, 

DISTA, DIDATC, DIDATM, DIDATR, DITTL, DITIMC, DITIMM, DITIMR 
FROM DI IN ENGINEERING_DATA_DATABASE 
WHERE DIEDT >= : DIEDT 
ORDER BY DIEDT ASC 
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IBADI5 

OBTAIN A ROW IN TABLE DI USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH DI5. 

SELECT DIEDN, DIFIL, DINAM, DISID, DIADT, DIEDT, DIUSR, DIREV, 
DISTA, DIDATC, DIDATM, DIDATR, DITTL, DITIMC, DITIMM. DITIMR 
FROM DI IN ENGINEERING_DATA_DATABASE 
WHERE DIADT >= : DIADT 
ORDER BY DIADT ASC 


IBADI6 

OBTAIN A ROW IN TABLE DI USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH DI6. 

SELECT DIEDN, DIFIL, DINAM, DISID, DIADT, DIEDT, DIUSR, DIREV, 
DISTA, DIDATC, DIDATM, DIDATR, DITTL, DITIMC, DITIMM, DITIMR 
FROM DI IN ENGINEERING_DATA_DATABASE 
WHERE DIUSR >= : DIUSR 
ORDER BY DIUSR ASC 


IBEDIl 

OBTAIN THE NEXT DUPLICATE ROW FROM TABLE DI VIA ACCESS PATH Dll. 

SAVE THE CURRENT POSITION IN TABLE DI . 

FETCH THE NEXT ROW FROM TABLE DI . 

SET :DIEDN, :DIFIL, :DINAM. :DISID, :DIADT, :DIEDT, :DIUSR, 

:DIREV, :DISTA, :DIDATC, :DIDATM, :DIDATR, iDITTL, :DITIMC, 
:DITIMM, :DITIMR 


IBEDI2 

OBTAIN THE NEXT DUPLICATE ROW FROM TABLE DI VIA ACCESS PATH DI2. 

SAVE THE CURRENT POSITION IN TABLE DI . 

FETCH THE NEXT ROW FROM TABLE DI . 

SET :DIEDN, :DIFIL, :DINAM, :DISID, :DIADT, :DIEDT, :DIUSR, 

: DIREV, : DISTA, : DIDATC, : DIDATM, : DIDATR, : DITTL, : DITIMC, 
:DITIMM, :DITIMR 


1BEDI4 

OBTAIN THE NEXT DUPLICATE ROW FROM TABLE DI VIA ACCESS PATH DI4. 

SAVE THE CURRENT POSITION IN TABLE DI . 

FETCH THE NEXT ROW FROM TABLE DI . 

SET :DIEDN, :DIFIL, :DINAM, :DISID, iDIADT, iDIEDT, :DIUSR, 

:DIREV, :DISTA, :DIDATC, :DIDATM, :DIDATR, :DITTL, :DITIMC, 
:DITIMM, rDITIMR 


IBEDI6 

OBTAIN THE NEXT DUPLICATE ROW FROM TABLE DI VIA ACCESS PATH DI5. 

SAVE THE CURRENT POSITION IN TABLE DI . 

FETCH THE NEXT ROW FROM TABLE DI . 

SET iDIEDN, iDIFIL, :DINAM, :DISID, iDIADT, iDIEDT, :DIUSR, 

iDIREV, :DISTA, :DIDATC, :DIDATM, :DIDATR, iDITTL, iDITIMC, 
:DITIMM, iDITIMR 
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IBEDI6 

OBTAIN THE NEXT DUPLICATE ROW FROM TABLE DI VIA ACCESS PATH DIB. 

SAVE THE CURRENT POSITION IN TABLE DI . 

FETCH THE NEXT ROW FROM TABLE DI . 

SET :DIEDN, :DIFIL, :DINAM, :DISID, :DIADT, :DIEDT, :DIUSR, 

:DIREV, :DISTA, iDIDATC, :DIDATM, rDIDATR, :DITTL, :DITIMC, 
:DITIMM, rDITIMR 

IBFDIO 

OBTAIN THE FIRST ROW OF TABLE DI , ORDERED BY ACCESS PATH DIO. 

SELECT DIEDN, DIFIL, DINAM, DISID, DIADT, DIEDT, DIUSR, DIREV, 
DISTA, DIDATC, DIDATM, DIDATR, DITTL, DITIMC, DITIMM, DITIMR 
FROM DI IN ENGINEERING_DATA_DATABASE 
ORDER BY DIEDN ASC 

IBFDI26 

OBTAIN THE FIRST ROW OF TABLE DI , ACCESS PATH DIB 

ORDER BY ACCESS PATH DI2 

SELECT DIEDN, DIFIL, DINAM, DISID, DIADT, DIEDT, DIUSR, DIREV, 
DISTA, DIDATC, DIDATM, DIDATR, DITTL, DITIMC, DITIMM, DITIMR 
FROM DI IN ENGINEERING_DATA_DATABASE 
WHERE : DIUSR = DIUSR 

ORDER BY DINAM ASC, DISID ASC, DIREV ASC 

IBFDI3 

OBTAIN THE FIRST ROW OF TABLE DI , ORDERED BY ACCESS PATH DI3. 

SELECT DIEDN, DIFIL, DINAM, DISID, DIADT, DIEDT, DIUSR, DIREV, 
DISTA. DIDATC, DIDATM, DIDATR, DITTL, DITIMC, DITIMM, DITIMR 
FROM DI IN ENGINEERING_DATA_DAT ABASE 
ORDER BY DINAM ASC, DISID ASC, DIFIL ASC 

IBFDI4 

OBTAIN THE FIRST ROW OF TABLE DI , ORDERED BY ACCESS PATH DI4. 

SELECT DIEDN, DIFIL, DINAM, DISID, DIADT, DIEDT, DIUSR. DIREV, 
DISTA, DIDATC, DIDATM, DIDATR, DITTL, DITIMC, DITIMM, DITIMR 
FROM DI IN ENGINEERING_DATA_DATABASE 
ORDER BY DIEDT ASC 

IBFDI5 

OBTAIN THE FIRST ROW OF TABLE DI. ORDERED BY ACCESS PATH DIB. 

SELECT DIEDN, DIFIL, DINAM, DISID, DIADT, DIEDT, DIUSR, DIREV, 
DISTA, DIDATC, DIDATM, DIDATR, DITTL, DITIMC, DITIMM, DITIMR 
FROM DI IN ENGINEERING_DATA_DATABASE 
ORDER BY DIADT ASC 
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IBFDI6 

OBTAIN THE FIRST ROW OF TABLE DI. ORDERED BY ACCESS PATH DI6. 

SELECT DIEDN, DIFIL, DINAM, DISID, DIADT, DIEDT, DIUSR, DIREV, 
DISTA, DIDATC, DIDATM, DIDATR, DITTL, DITIMC, DITIMM, DITIMR 
FROM DI IN ENGINEERING_DATA_DATABASE 
ORDER BY DIUSR ASC 


IBNDIO 

OBTAIN THE NEXT ROW OF TABLE DI, ORDERED BY ACCESS PATH DIO. 

SET :DIEDN. :DIFIL, :DINAM, :DISID, :DIADT, :DIEDT, iDIUSR, 

:DIREV, :DISTA, :DIDATC, :DIDATM, rDIDATR, :DITTL, rDITIMC, 
rDITIMM, rDITIMR 


IBND126 

OBTAIN THE NEXT ROW OF TABLE DI, ACCESS PATH DIB ORDER BY DI2 

SET :DIEDN, :DIFIL, :DINAM, :DISID, :DIADT, :DIEDT, iDIUSR, 

:DIREV, :DISTA, rDIDATC, :DIDATM. rDIDATR, rDITTL, rDITIMC, 
rDITIMM, rDITIMR 


IBNDIl 

OBTAIN THE NEXT ROW OF TABLE DI , ORDERED BY ACCESS PATH DIO. 

SET rDIEDN, rDIFIL, rDINAM, rDISID, rDIADT, rDIEDT, rDIUSR, 

r DIREV, r DISTA, rDIDATC, : DIDATM, rDIDATR, rDITTL, rDITIMC, 
rDITIMM, rDITIMR 


IBNDI3 

OBTAIN THE NEXT ROW OF TABLE DI, ORDERED BY ACCESS PATH DI3. 

SET rDIEDN, rDIFIL, rDINAM. rDISID, rDIADT, rDIEDT, rDIUSR, 

rDIREV, rDISTA, rDIDATC, rDIDATM, rDIDATR, rDITTL, rDITIMC, 
rDITIMM, rDITIMR 


IBNDI4 

OBTAIN THE NEXT ROW OF TABLE DI , ORDERED BY ACCESS PATH DI4. 

SET rDIEDN, rDIFIL, rDINAM, rDISID. rDIADT, rDIEDT, rDIUSR, 

rDIREV, rDISTA, rDIDATC, rDIDATM, rDIDATR, rDITTL, rDITIMC, 
rDITIMM, rDITIMR 


IBNDI5 

OBTAIN THE NEXT ROW OF TABLE DI , ORDERED BY ACCESS PATH DI5. 

SET rDIEDN, rDIFIL, rDINAM, rDISID, rDIADT, rDIEDT, rDIUSR, 

rDIREV, rDISTA, rDIDATC, rDIDATM, rDIDATR, rDITTL, rDITIMC, 
rDITIMM, rDITIMR 
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IBNDI6 

OBTAIN THE NEXT ROW OF TABLE DI, ORDERED BY ACCESS PATH DI6. 

SET :DIEDN, :DIFIL. :DINAM, :DISID, :DIADT, :DIEDT, :DIUSR, 

:DIREV, :DISTA. rDIDATC, :DIDATM.- :DIDATR, :DITTL, rDITIMC, 
:DITIMM. :DITIIMR 


IBOETDI 

USING COSET ETDI, OBTAIN THE ROW FROM TABLE ET THAT OWNS SPECIFIC 
ROWS IN MEMBER TABLE DI 

SELECT ETEDT, ETDSC 

INTO : ETEDT, : ETDSC 

FROM ET IN ENGINEERING_DATA_DATABASE 

WHERE ETEDT = :DIEDT 


IBOATDI 

USING COSET ATDI, OBTAIN THE ROW FROM TABLE AT THAT OWNS SPECIFIC 
ROWS IN MEMBER TABLE DI 

SELECT ATADT, ATNAM, ATFTC, ATTNA, ATSIDR 
INTO : ATADT, : ATNAM, : ATFTC, : ATTNA, : ATSIDR 
FROM AT IN ENGINEERING_DATA_DATABASE 
WHERE ATADT = :DIADT 


IBOFIDI 

USING COSET FIDI, OBTAIN THE ROW FROM TABLE FI THAT OWNS SPECIFIC 
ROWS IN MEMBER TABLE DI 

SELECT FIFIL, FIHOS, FIFUN, FIPFN, FILNA, FIFTC, FIUSR, FICT, 
FIMOD, FISTA, FIVSN 

INTO :FIFIL, :FIHOS, :FIFUN, :FIPFN, :FILNA, :FIFTC, :FIUSR, 
:FICT, :FIMOD, :FISTA, :FIVSN 
FROM FI IN ENGINEERING_DATA_DATABASE 
WHERE FIFIL = :DIFIL 


IBFETDI 

OBTAIN THE FIRST ROW FROM MEMBER TABLE DI WITHIN COSET ETDI, USING 
ACCESS PATH DI4. 

SELECT DIEDN, DIFIL, DINAM, DISID, DIADT, DIEDT, DIUSR, DIREV, 
DISTA, DIDATC, DIDATM, DIDATR, DITTL, DITIMC, DITIMM, DITIMR 
FROM DI IN ENGINEERING_DATA_DAT ABASE 
WHERE DIEDT = : ETEDT 
ORDER BY DIEDT ASC 
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IBFATDI 

OBTAIN THE FIRST ROW FROW MEMBER TABLE DI WITHIN COSET ATDI, USING 
ACCESS PATH DI5. 

SELECT DIEDN, DIFIL, DINAM, DISID, DIADT, DIEDT, DIUSR, DIREV, 
DISTA, DIDATC, DIDATM, DIDATR, DITTL, DITIMC, DITIMM, DITIMR 
FROM DI IN ENGINEERING_DATA_DATABASE 
WHERE DIADT = :ATADT 
ORDER BY DIADT ASC 


IBFFIDI 

OBTAIN THE FIRST ROW FROM MEMBER TABLE DI WITHIN COSET FIDI , USING 
ACCESS PATH DI2. 

SELECT DIEDN, DIFIL, DINAM, DISID, DIADT, DIEDT, DIUSR, DIREV, 
DISTA, DIDATC, DIDATM, DIDATR, DITTL, DITIMC, DITIMM, DITIMR 
FROM DI IN ENGINEERING_DATA_DATABASE 
WHERE DIFIL = :FIFIL 

ORDER BY DIFIL ASC, DINAM ASC, DISID ASC, DIREV ASC 


IBNETDI 

OBTAIN THE NEXT ROW FROM MEMBER TABLE DI WITHIN COSET ETDI . 

SET :DIEDN, :DIFIL, :DINAM, :DISID, :DIADT, :DIEDT, :DIUSR, 

:DIREV, :DISTA, :DIDATC, iDIDATM, iDIDATR, :DITTL, :DITIMC, 
:DITIMM, :DITIMR 


IBNATDI 

OBTAIN THE NEXT ROW FROM MEMBER TABLE DI WITHIN COSET ATDI. 

SET :DIEDN, :DIFIL, :DINAM, :DISID, :DIADT, :DIEDT, :DIUSR, 

:DIREV, :DISTA, :DIDATC, iDIDATM, :DIDATR, :DITTL, rDITIMC, 
:DITIMM, :DITIMR 


IBNFIDI 

OBTAIN THE NEXT ROW FROM MEMBER TABLE DI WITHIN COSET FIDI. 

SET :DIEDN, :DIFIL, :DINAM, :DISID, :DIADT, :DIEDT, :DIUSR, 

:DIREV, :DISTA, :DIDATC, rDIDATM, :DIDATR, :DITTL, :DITIMC, 
-.DITIMM, : DITIMR 
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Data Required (DR) Routines 

The DR table identifies all the data sets that must be available in order for a given 
data set to be correctly interpreted. 

IBSDR 

STORE A NEW ROW IN TABLE DR. 

INSERT INTO DR IN ENGINEERING_DATA_DATABASE 
SET DREDN = :DREDN. 

DREDNR » :DREDNR 

IBMDR 

MODIFY AN EXISTING ROW IN TABLE DR. 

UDPATE DR IN ENGINEERING_DATA_DATABASE 
WHERE DREDN = : DREDN AND 
DREDNR = : DREDNR 
SET DREDN = : DREDN, 

DREDNR = : DREDNR 

IBDDR 

DELETE AN EXISTING ROW IN TABLE DR. 

DELETE FROM DR IN ENGINEERING_DATA_DATABASE 
WHERE DREDN = : DREDN AND 
DREDNR = : DREDNR 

IBODRO 

OBTAIN A ROW IN TABLE DR VIA ACCESS PATH DRO. 

SELECT DREDN, DREDNR 
FROM DR IN ENGINEERING_DATA_DATABASE 
WHERE DREDN = : DREDN AND 
DREDNR = : DREDNR 
ORDER BY DREDN ASC, DREDNR ASC 

IBODRl 

OBTAIN A ROW IN TABLE DR VIA ACCESS PATH DRl. 

SELECT DREDN, DREDNR 

FROM DR IN ENGINEERING_DATA_DATABASE 

WHERE DREDN : DREDN 

ORDER BY DREDN ASC 

IBODR2 

OBTAIN A ROW IN TABLE DR VIA ACCESS PATH DR2. 

SELECT DREDN, DREDNR 

FROM DR IN ENGINEERING_DATA_DATABASE 

WHERE DREDNR = : DREDNR 

ORDER BY DREDNR ASC 
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IBADRO 

OBTAIN A ROW IN TABLE DR USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH DRO. 

SELECT DREDN, DREDNR 

FROM DR IN ENGINEERING_DATA_DATABASE 

WHERE (DREDN > :DREDN) 

OR ((DREDN = : DREDN) AND (DREDNR > : DREDNR)) 

OR (DREDN = : DREDN AND DREDNR = : DREDNR) 

ORDER BY DREDN ASC. DREDNR ASC 


IBADRl 

OBTAIN A ROW IN TABLE DR USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH DR1. 

SELECT DREDN, DREDNR 

FROM DR IN ENGINEERING_DATA_DATABASE 

WHERE DREDN >= : DREDN 

ORDER BY DREDN ASC 


IBADR2 

OBTAIN A ROW IN TABLE DR USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH DR2. 

SELECT DREDN, DREDNR 

FROM DR IN ENGINEERING_DATA_DATABASE 

WHERE DREDNR >= : DREDNR 

ORDER BY DREDNR ASC 

IBEDRl 

OBTAIN THE NEXT DUPLICATE ROW FROM TABLE DR VIA ACCESS PATH DR1. 
SAVE THE CURRENT POSITION IN TABLE DR. 

FETCH THE NEXT ROW FROM TABLE DR. 

SET : DREDN, : DREDNR 

IBEDR2 

OBTAIN THE NEXT DUPLICATE ROW FROM TABLE DR VIA ACCESS PATH DR2. 
SAVE THE CURRENT POSITION IN TABLE DR. 

FETCH THE NEXT ROW FROM TABLE DR. 

SET : DREDN, : DREDNR 


IBFDRO 

OBTAIN THE FIRST ROW OF TABLE DR, ORDERED BY ACCESS PATH DRO. 
SELECT DREDN, DREDNR 
FROM DR IN ENGINEERING_DATA_DATABASE 
ORDER BY DREDN ASC, DREDNR ASC 
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IBFDRl 

OBTAIN THE FIRST ROW OF TABLE DR. ORDERED BY ACCESS PATH DR1. 
SELECT DREDN, DREDNR 
FROM DR IN ENGINEERING_DATA_DATABASE 
ORDER BY DREDN ASC 


IBFDR2 

OBTAIN THE FIRST ROW OF TABLE DR, ORDERED BY ACCESS PATH DR2. 
SELECT DREDN, DREDNR 
FROM DR IN ENGINEERING.DATA.DATABASE 
ORDER BY DREDNR ASC 


IBNDRO 

OBTAIN THE NEXT ROW OF TABLE DR, ORDERED BY ACCESS PATH DRO 
SET : DREDN, : DREDNR 

IBNDRl 

OBTAIN THE NEXT ROW OF TABLE DR, ORDERED BY ACCESS PATH DRl, 
SET : DREDN, :DREDNR 

IBNDR2 


OBTAIN THE NEXT ROW OF TABLE DR, ORDERED BY ACCESS PATH DR2 
SET : DREDN, : DREDNR 


IBODDR2 

USING COSET DDR2, OBTAIN THE ROW FROM TABLE DI THAT OWNS SPECIFIC 
ROWS IN MEMBER TABLE DR 

SELECT DIEDN, DIFIL, DINAM, DISID, DIADT, DIEDT, DIUSR, DIREV, 
DISTA, DIDATC, DIDATM, DIDATR, DITTL, DITIMC, DITIMM, DITIMR 
INTO :DIEDN, :DIFIL. :DINAM, :DISID, :DIADT, :DIEDT, :DIUSR, 

: DIREV, : DISTA, : DIDATC, : DIDATM, : DIDATR, : DITTL, : DITIMC, 
rDITIMM, :DITIMR 

FROM DI IN ENGINEERING_DATA_DATABASE 
WHERE DIEDN = : DREDN 

IBODDRl 

USING COSET DDR1, OBTAIN THE ROW FROM TABLE DI THAT OWNS SPECIFIC 
ROWS IN MEMBER TABLE DR 

SELECT DIEDN, DIFIL, DINAM, DISID, DIADT, DIEDT, DIUSR, DIREV, 
DISTA, DIDATC, DIDATM, DIDATR, DITTL, DITIMC, DITIMM, DITIMR 
INTO :DIEDN, :DIFIL, :DINAM, :DISID, :DIADT, :DIEDT, :DIUSR, 

: DIREV, : DISTA, : DIDATC, : DIDATM, : DIDATR, : DITTL, : DITIMC, 
:DITIMM, :DITIMR 

FROM DI IN ENGINEERING_DATA_DATABASE 
WHERE DIEDN = : DREDN 
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IBFDDR2 

OBTAIN THE FIRST ROW FROM MEMBER TABLE DR WITHIN COSET DDR2, USING 
ACCESS PATH DR2. 

SELECT DREDN, DREDNR 

FROM DR IN ENGINEERING_DATA_DATABASE 

WHERE DREDNR = :DIEDN 

ORDER BY DREDNR ASC 


IBFDDRl 

OBTAIN THE FIRST ROW FROM MEMBER TABLE DR WITHIN COSET DDRl, USING 
ACCESS PATH DR1. 

SELECT DREDN, DREDNR 

FROM DR IN ENGINEERING_DATA_DATABASE 

WHERE DREDN = :DIEDN 

ORDER BY DREDN ASC 


IBNDDR2 

OBTAIN THE NEXT ROW FROM MEMBER TABLE DR WITHIN COSET DDR2 . 
SET : DREDN. : DREDNR 


IBNDDRl 

OBTAIN THE NEXT ROW FROM MEMBER TABLE DR WITHIN COSET DDRl. 
SET : DREDN, : DREDNR 
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Data Source (DS) Routines 

The DS table defines the data sets from which a new data set was derived. Such a 
data set is seiid to be the ''source'' for the new data. 

IBSDS 

STORE A NEW ROW IN TABLE DS. 

INSERT INTO DS IN ENGINEERING_DATA_DAT ABASE 
SET DSEDN = :DSEDN, 

DSEDNS « :DSEDNS 

IBMDS 

MODIFY AN EXISTING ROW IN TABLE DS. 

UDPATE DS IN ENGINEERING_DATA_DATABASE 
WHERE DSEDN = : DSEDN AND 
DSEDNS = : DSEDNS 
SET DSEDN = : DSEDN, 

DSEDNS = : DSEDNS 

IBDDS 

DELETE AN EXISTING ROW IN TABLE DS. 

DELETE FROM DS IN ENGINEERING_DATA_DATABASE 
WHERE DSEDN = : DSEDN AND 
DSEDNS = : DSEDNS 

IBODSO 

OBTAIN A ROW IN TABLE DS VIA ACCESS PATH DSO . 

SELECT DSEDN, DSEDNS 
FROM DS IN ENGINEERING_DATA_DATABASE 
WHERE DSEDN = : DSEDN AND 
DSEDNS = : DSEDNS 
ORDER BY DSEDN ASC, DSEDNS ASC 

IBODSl 

OBTAIN A ROW IN TABLE DS VIA ACCESS PATH DS1 . 

SELECT DSEDN, DSEDNS 

FROM DS IN ENGINEERING_DATA_DATABASE 

WHERE DSEDN = : DSEDN 

ORDER BY DSEDN ASC 

IBODS2 

OBTAIN A ROW IN TABLE DS VIA ACCESS PATH DS2. 

SELECT DSEDN, DSEDNS 

FROM DS IN ENGINEERING_DATA_DATABASE 

WHERE DSEDNS : DSEDNS 

ORDER BY DSEDNS ASC 
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IBADSO 

OBTAIN A ROW IN TABLE DS USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH DSD. 

SELECT DSEDN, DSEDNS 

FROM DS IN ENGINEERING_DATA_DATABASE 

WHERE (DSEDN > : DSEDN) 

OR ((DSEDN = : DSEDN) AND (DSEDNS > : DSEDNS)) 

OR (DSEDN = : DSEDN AND DSEDNS = : DSEDNS) 

ORDER BY DSEDN ASC, DSEDNS ASC 


IBADSl 

OBTAIN A ROW IN TABLE DS USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH DS1. 

SELECT DSEDN, DSEDNS 

FROM DS IN ENGINEERING_DATA_DATABASE 

WHERE DSEDN >= : DSEDN 

ORDER BY DSEDN ASC 


IBADS2 

OBTAIN A ROW IN TABLE DS USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH DS2. 

SELECT DSEDN. DSEDNS 

FROM DS IN ENGINEERING_DATA_DAT ABASE 

WHERE DSEDNS >== : DSEDNS 

ORDER BY DSEDNS ASC 

IBEDSl 

OBTAIN THE NEXT DUPLICATE ROW FROM TABLE DS VIA ACCESS PATH DS1. 
SAVE THE CURRENT POSITION IN TABLE DS. 

FETCH THE NEXT ROW FROM TABLE DS. 

SET : DSEDN. : DSEDNS 

IBEDS2 

OBTAIN THE NEXT DUPLICATE ROW FROM TABLE DS VIA ACCESS PATH DS2. 
SAVE THE CURRENT POSITION IN TABLE DS. 

FETCH THE NEXT ROW FROM TABLE DS. 

SET : DSEDN, : DSEDNS 


IBFDSO 

OBTAIN THE FIRST ROW OF TABLE DS, ORDERED BY ACCESS PATH DSO. 
SELECT DSEDN, DSEDNS 
FROM DS IN ENGINEERING_DATA_DATABASE 
ORDER BY DSEDN ASC. DSEDNS ASC 
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IBFDSl 

OBTAIN THE FIRST ROW OF TABLE DS, ORDERED BY ACCESS PATH DS1. 
SELECT DSEDN. DSEDNS 
FROM DS IN ENGINEERING_DATA_DATABASE 
ORDER BY DSEDN ASC 


IBFDS2 

OBTAIN THE FIRST ROW OF TABLE DS, ORDERED BY ACCESS PATH DS2. 
SELECT DSEDN, DSEDNS 
FROM DS IN ENGINEERING.DATA.DATABASE 
ORDER BY DSEDNS ASC 


IBNDSO 

OBTAIN THE NEXT ROW OF TABLE DS, ORDERED BY ACCESS PATH DSO . 
SET : DSEDN, : DSEDNS 

IBNDSl 

OBTAIN THE NEXT ROW OF TABLE DS, ORDERED BY ACCESS PATH DS1 . 
SET : DSEDN, : DSEDNS 

IBNDS2 

OBTAIN THE NEXT ROW OF TABLE DS, ORDERED BY ACCESS PATH DS2 . 
SET : DSEDN, : DSEDNS 


IBODDS2 

USING COSET DDS2, OBTAIN THE ROW FROM TABLE DI THAT OWNS SPECIFIC 
ROWS IN MEMBER TABLE DS 

SELECT DIEDN, DIFIL, DINAM, DISID, DIADT, DIEDT, DIUSR, DIREV, 
DISTA, DIDATC, DIDATM, DIDATR, DITTL, DITIMC, DITIMM, DITIMR 
INTO :DIEDN, iDIFIL, :DINAM, :DISID, :DIADT, :DIEDT, :DIUSR, 

: DIREV, : DISTA, : DIDATC, : DIDATM. : DIDATR, : DITTL, : DITIMC, 
iDITIMM, :DITIMR 

FROM DI IN ENGINEERING_DATA_DATABASE 
WHERE DIEDN = : DSEDN 
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IBODDSl 

USING COSET DDS1, OBTAIN THE ROW FROM TABLE DI THAT OWNS SPECIFIC 
ROWS IN MEMBER TABLE DS 

SELECT DIEDN, DIFIL, DINAM, DISID, DIADT, DIEDT, DIUSR, DIREV, 
DISTA, DIDATC, DIDATM, DIDATR, DITTL, DITIMC, DITIMM, DITIMR 
INTO :DIEDN, :DIFIL. :DINAM, :DISID, :DIADT. :DIEDT, :DIUSR. 

: DIREV, : DISTA, : DIDATC, : DIDATM, : DIDATR, : DITTL, : DITIMC, 
:DITIMM, iDITIMR 

FROM DI IN ENGINEERING_DATA_DATABASE 
WHERE DIEDN » :DSEDN 


IBFDDS2 

OBTAIN THE FIRST ROW FROM MEMBER TABLE DS WITHIN COSET DDS2, USING 
ACCESS PATH DS2. 

SELECT DSEDN, DSEDNS 

FROM DS IN ENGINEERING_DATA_DATABASE 

WHERE DSEDNS = : DIEDN 

ORDER BY DSEDNS ASC 


IBFDDSl 

OBTAIN THE FIRST ROW FROM MEMBER TABLE DS WITHIN COSET DDS1, USING 
ACCESS PATH DS1. 

SELECT DSEDN, DSEDNS 

FROM DS IN ENGINEERING_DATA_DATABASE 

WHERE DSEDN = : DIEDN 

ORDER BY DSEDN ASC 


IBNDDS2 

OBTAIN THE NEXT ROW FROM MEMBER TABLE DS WITHIN COSET DDS2. 
SET : DSEDN, : DSEDNS 


IBNDDSl 

OBTAIN THE NEXT ROW FROM MEMBER TABLE DS WITHIN COSET DDS1. 
SET : DSEDN, : DSEDNS 


Revision A 


Information Base Routines B-35 



Engineering Attributes (EA) Routines 


Engineering Attributes (EA) Routines 

The EA table defines the standard attributes used to describe data at the site. Users 
are prompted for these attributes when they choose to describe engineering data. 

IBSEA 

STORE A NEW ROW IN TABLE EA. 

INSERT INTO EA IN ENGINEERING_DATA_DATABASE 
SET EAEDT = :EAEDT, 

EAATR = :EAATR 

IBMEA 

MODIFY AN EXISTING ROW IN TABLE EA. 

UDPATE EA IN ENGINEERING_DATA_DAT ABASE 
WHERE EAATR = : EAATR AND 
EAEDT = : EAEDT 
SET EAEDT = : EAEDT, 

EAATR = : EAATR 


IBDEA 

DELETE AN EXISTING ROW IN TABLE EA. 

DELETE FROM EA IN ENGINEERING_DATA_DATABASE 
WHERE EAATR = : EAATR AND 
EAEDT = : EAEDT 


IBOEAO 

OBTAIN A ROW IN TABLE EA VIA ACCESS PATH EAO . 
SELECT EAEDT, EAATR 
FROM EA IN ENGINEERING_DATA_DATABASE 
WHERE EAATR = : EAATR AND 
EAEDT = : EAEDT 

ORDER BY EAATR ASC, EAEDT ASC 


IBOEAl 

OBTAIN A ROW IN TABLE EA VIA ACCESS PATH EA1 . 
SELECT EAEDT, EAATR 
FROM EA IN ENGINEERING_DATA_DATABASE 
WHERE EAEDT = : EAEDT 
ORDER BY EAEDT ASC, EAATR ASC 


IBOEA2 

OBTAIN A ROW IN TABLE EA VIA ACCESS PATH EA2 . 
SELECT EAEDT, EAATR 
FROM EA IN ENGINEERING.DATA.DATABASE 
WHERE EAATR = : EAATR 
ORDER BY EAATR ASC 
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IBAEAO 

OBTAIN A ROW IN TABLE EA USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH EAO . 

SELECT EAEDT, EAATR 

FROM EA IN ENGINEERING_DATA_DATABASE 

WHERE (EAATR > : EAATR) 

OR ((EAATR = : EAATR) AND (EAEDT > : EAEDT)) 

OR (EAATR = : EAATR AND EAEDT = : EAEDT) 

ORDER BY EAATR ASC, EAEDT ASC 


IBAEAl 

OBTAIN A ROW IN TABLE EA USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH EA1. 

SELECT EAEDT, EAATR 

FROM EA IN ENGINEERING_DATA_DATABASE 

WHERE EAEDT >= : EAEDT 

ORDER BY EAEDT ASC, EAATR ASC 


IBAEA2 

OBTAIN A ROW IN TABLE EA USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH EA2. 

SELECT EAEDT, EAATR 

FROM EA IN ENGINEERING_DATA_DATABASE 

WHERE EAATR >= : EAATR 

ORDER BY EAATR ASC 

IBEEAl 

OBTAIN THE NEXT DUPLICATE ROW FROM TABLE EA VIA ACCESS PATH EA1 . 
SAVE THE CURRENT POSITION IN TABLE EA. 

FETCH THE NEXT ROW FROM TABLE EA. 

SET : EAEDT, : EAATR 

IBEEA2 

OBTAIN THE NEXT DUPLICATE ROW FROM TABLE EA VIA ACCESS PATH EA2. 
SAVE THE CURRENT POSITION IN TABLE EA. 

FETCH THE NEXT ROW FROM TABLE EA. 

SET : EAEDT, : EAATR 


IBFEAO 

OBTAIN THE FIRST ROW OF TABLE EA, ORDERED BY ACCESS PATH EAO. 
SELECT EAEDT, EAATR 
FROM EA IN ENGINEERING_DATA_DATABASE 
ORDER BY EAATR ASC, EAEDT ASC 
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IBFEAl 

OBTAIN THE FIRST ROW OF TABLE EA. ORDERED BY ACCESS PATH EA1 . 
SELECT EAEDT, EAATR 
FROM EA IN ENGINEERING_DATA_DATABASE 
ORDER BY EAEDT ASC, EAATR ASC 

IBFEA2 

OBTAIN THE FIRST ROW OF TABLE EA. ORDERED BY ACCESS PATH EA2. 
SELECT EAEDT. EAATR 
FROM EA IN ENGINEERING_DATA_DATABASE 
ORDER BY EAATR ASC 

IBNEAO 

OBTAIN THE NEXT ROW OF TABLE EA. ORDERED BY ACCESS PATH EAO. 

SET : EAEDT. : EAATR 

IBNEAl 

OBTAIN THE NEXT ROW OF TABLE EA. ORDERED BY ACCESS PATH EA1 . 

SET : EAEDT. : EAATR 

IBNEA2 

OBTAIN THE NEXT ROW OF TABLE EA. ORDERED BY ACCESS PATH EA2. 

SET : EAEDT. : EAATR 

IBOETEA 

USING COSET ETEA. OBTAIN THE ROW FROM TABLE ET THAT OWNS SPECIFIC 
ROWS IN MEMBER TABLE EA 

SELECT ETEDT. ETDSC 

INTO : ETEDT. : ETDSC 

FROM ET IN ENGINEERING_DATA_DATABASE 

WHERE ETEDT = : EAEDT 

IBFETEA 

OBTAIN THE FIRST ROW FROM MEMBER TABLE EA WITHIN COSET ETEA. USING 
ACCESS PATH EA1 . 

SELECT EAEDT. EAATR 

FROM EA IN ENGINEERING_DATA_DATABASE 

WHERE EAEDT = : ETEDT 

ORDER BY EAEDT ASC. EAATR ASC 

IBNETEA 

OBTAIN THE NEXT ROW FROM MEMBER TABLE EA WITHIN COSET ETEA. 

SET : EAEDT. : EAATR 
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Engineering Categories (ET) Routines 

The ET table defines the categories of engineering data descriptions used by the site. 
Categories provide a way of organizing and separating data based on how it is used. 

IBSET 

STORE A NEW ROW IN TABLE ET. 

INSERT INTO ET IN ENGINEERING_DATA_DATABASE 
SET ETEDT = :ETEDT, 

ETDSC = :ETDSC 

IBMET 

MODIFY AN EXISTING ROW IN TABLE ET. 

UDPATE ET IN ENGINEERING_DATA_DATABASE 
WHERE ETEDT = : ETEDT 
SET ETEDT = : ETEDT, 

ETDSC = : ETDSC 

IBDET 

DELETE AN EXISTING ROW IN TABLE ET. 

DELETE FROM ET IN ENGINEERING_DATA_DATABASE 
WHERE ETEDT = : ETEDT 

IBOETO 

OBTAIN A ROW IN TABLE ET VIA ACCESS PATH ETO . 

SELECT ETEDT, ETDSC 

FROM ET IN ENGINEERING_DATA_DATABASE 

WHERE ETEDT = : ETEDT 

ORDER BY ETEDT ASC 

IBAETO 

OBTAIN A ROW IN TABLE ET USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH ETO. 

SELECT ETEDT, ETDSC 

FROM ET IN ENGINEERING_DATA_DATABASE 

WHERE ETEDT >= ; ETEDT 

ORDER BY ETEDT ASC 

IBFETO 

OBTAIN THE FIRST ROW OF TABLE ET, ORDERED BY ACCESS PATH ETO. 

SELECT ETEDT, ETDSC 

FROM ET IN ENGINEERING_DATA_DATABASE 

ORDER BY ETEDT ASC 

IBNETO 

OBTAIN THE NEXT ROW OF TABLE ET, ORDERED BY ACCESS PATH ETO. 

SET : ETEDT, : ETDSC 
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Family Data (FD) Routines 

The FD table defines the family-engineering data relationships. 
IBSFD 

STORE A NEW ROW IN TABLE FD. 

INSERT INTO FD IN ENGINEERING_DATA_DATABASE 
SET FDFAM = :FDFAM, 

FDEDN = :FDEDN 


IBMFD 

MODIFY AN EXISTING ROW IN TABLE FD. 

UDPATE FD IN ENGINEERING_DATA_DATABASE 
WHERE FDFAM = : FDFAM AND 
FDEDN = : FDEDN 
SET FDFAM = : FDFAM, 

FDEDN = : FDEDN 


IBDFD 

DELETE AN EXISTING ROW IN TABLE FD. 

DELETE FROM FD IN ENGINEER I NG_DATA_DATABASE 
WHERE FDFAM = : FDFAM AND 
FDEDN = : FDEDN 


IBOFDO 

OBTAIN A ROW IN TABLE FD VIA ACCESS PATH FDD. 
SELECT FDFAM, FDEDN 
FROM FD IN ENGINEERING_DATA_DAT ABASE 
WHERE FDFAM = : FDFAM AND 
FDEDN = : FDEDN 

ORDER BY FDFAM ASC, FDEDN ASC 


IBOFDl 

OBTAIN A ROW IN TABLE FD VIA ACCESS PATH FD1 . 
SELECT FDFAM, FDEDN 
FROM FD IN ENGINEERING_DATA_DAT ABASE 
WHERE FDFAM = ; FDFAM 
ORDER BY FDFAM ASC 
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IBOFD2 

OBTAIN A ROW IN TABLE FD VIA ACCESS PATH FD2. 

SELECT FDFAM, FDEDN 

FROM FD IN ENGINEERING_DATA_DATABASE 

WHERE FDEDN = : FDEDN 

ORDER BY FDEDN ASC 

IBAFDO 

OBTAIN A ROW IN TABLE FD USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH FDD. 

SELECT FDFAM, FDEDN 

FROM FD IN ENGINEERING_DATA_DATABASE 

WHERE (FDFAM > : FDFAM) 

OR ((FDFAM = : FDFAM) AND (FDEDN > : FDEDN)) 

OR (FDFAM = : FDFAM AND FDEDN = : FDEDN) 

ORDER BY FDFAM ASC, FDEDN ASC 

IBAFDl 

OBTAIN A ROW IN TABLE FD USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH FD1. 

SELECT FDFAM, FDEDN 

FROM FD IN ENGINEERING_DATA_DATABASE 

WHERE FDFAM >= : FDFAM 

ORDER BY FDFAM ASC 


IBAFD2 

OBTAIN A ROW IN TABLE FD USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH FD2. 

SELECT FDFAM, FDEDN 

FROM FD IN ENGINEERING_DATA_DATABASE 

WHERE FDEDN >= : FDEDN 

ORDER BY FDEDN ASC 


IBEFDl 


OBTAIN THE NEXT DUPLICATE ROW FROM TABLE FD VIA ACCESS PATH FD1 . 
SAVE THE CURRENT POSITION IN TABLE FD. 

FETCH THE NEXT ROW FROM TABLE FD. 

SET : FDFAM, : FDEDN 

IBEFD2 

OBTAIN THE NEXT DUPLICATE ROW FROM TABLE FD VIA ACCESS PATH FD2. 
SAVE THE CURRENT POSITION IN TABLE FD. 

FETCH THE NEXT ROW FROM TABLE FD. 

SET : FDFAM, : FDEDN 
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IBFFDO 

OBTAIN THE FIRST ROW OF TABLE FD, ORDERED BY ACCESS PATH FDD. 
SELECT FDFAM, FDEDN 
FROM FD IN ENGINEER I NG_DATA_DATABASE 
ORDER BY FDFAM ASC, FDEDN ASC 

IBFFDl 

OBTAIN THE FIRST ROW OF TABLE FD, ORDERED BY ACCESS PATH FD1. 
SELECT FDFAM, FDEDN 
FROM FD IN ENGINEERING.DATA.DATABASE 
ORDER BY FDFAM ASC 

IBFFD2 

OBTAIN THE FIRST ROW OF TABLE FD, ORDERED BY ACCESS PATH FD2. 
SELECT FDFAM, FDEDN 
FROM FD IN ENGINEERING_DATA_DATABASE 
ORDER BY FDEDN ASC 

IBNFDO 

OBTAIN THE NEXT ROW OF TABLE FD, ORDERED BY ACCESS PATH FDD. 
SET : FDFAM, : FDEDN 

IBNFDl 

OBTAIN THE NEXT ROW OF TABLE FD, ORDERED BY ACCESS PATH FDl . 
SET : FDFAM, : FDEDN 

IBNFD2 

OBTAIN THE NEXT ROW OF TABLE FD, ORDERED BY ACCESS PATH FD2 . 
SET : FDFAM, : FDEDN 


IBODIFD 

USING COSET DIFD, OBTAIN THE ROW FROM TABLE DI THAT OWNS SPECIFIC 
ROWS IN MEMBER TABLE FD 

SELECT DIEDN, DIFIL, DINAM, DISID, DIADT, DIEDT, DIUSR, DIREV, 
DISTA, DIDATC, DIDATM, DIDATR, DITTL, DITIMC, DITIMM, DITIMR 
INTO :DIEDN, :DIFIL. :DINAM, :DISID, :DIADT, :DIEDT, :DIUSR, 
:DIREV, :DISTA, ;DIDATC, :DIDATM, rDIDATR, :DITTL, rDITIMC, 
: DITIMM, : DITIMR 

FROM DI IN ENGINEER I NG_DATA_DATABASE 
WHERE DIEDN = : FDEDN 
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IBOFMFD 

USING COSET FMFD, OBTAIN THE ROW FROM TABLE FM THAT OWNS SPECIFIC 
ROWS IN MEMBER TABLE FD 

SELECT FMFAM, FMTTL 

INTO : FMFAM, : FMTTL 

FROM FM IN ENGINEERING_DATA_DATABASE 

WHERE FMFAM = :FDFAM 


IBFDIFD 

OBTAIN THE FIRST ROW FROM MEMBER TABLE FD WITHIN COSET DIFD, USING 
ACCESS PATH FD2 . 

SELECT FDFAM, FDEDN 

FROM FD IN ENGINEERING_DATA_DATABASE 

WHERE FDEDN = :DIEDN 

ORDER BY FDEDN ASC 


IBFFMFD 

OBTAIN THE FIRST ROW FROM MEMBER TABLE FD WITHIN COSET FMFD. USING 
ACCESS PATH FD1. 

SELECT FDFAM, FDEDN 

FROM FD IN ENGINEERING_DATA_DATABASE 

WHERE FDFAM = : FMFAM 

ORDER BY FDFAM ASC 


IBNDIFD 

OBTAIN THE NEXT ROW FROM MEMBER TABLE FD WITHIN COSET DIFD. 
SET : FDFAM, : FDEDN 


IBNFMFD 

OBTAIN THE NEXT ROW FROM MEMBER TABLE FD WITHIN COSET FMFD. 
SET : FDFAM, : FDEDN 
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File Information (FI) Routines 

The FI table contains the definitions of all user files known to EDL. 
IBSFI 

STORE A NEW ROW IN TABLE FI. 

INSERT INTO FI IN ENGINEERING_DATA_DATABASE 
SET FIFIL = iFIFIL, 

FIHOS = :FIHOS. 

FIFUN = :FIFUN, 

FIPFN = :FIPFN, 

FILNA = :FILNA, 

FIFTC = :FIFTC, 

FIUSR = :FIUSR, 

FICT = :FICT, 

FIMOD = iFIMOD, 

FISTA = :FISTA, 

FIVSN = :FIVSN 

IBMFI 

MODIFY AN EXISTING ROW IN TABLE FI. 

UDPATE FI IN ENGINEERING_DATA_DATABASE 
WHERE FIFIL = : FIFIL 
SET FIFIL = :FIFIL. 

FIHOS = : FIHOS, 

FIFUN = :FIFUN, 

FIPFN = : FIPFN, 

FILNA = : FILNA, 

FIFTC = : FIFTC, 

FIUSR = : FIUSR, 

FICT = :FICT, 

FIMOD = : FIMOD, 

FISTA = : FISTA, 

FIVSN = : FIVSN 

IBDFI 

DELETE AN EXISTING ROW IN TABLE FI. 

DELETE FROM FI IN ENGINEERING_DATA_DATABASE 
WHERE FIFIL = : FIFIL 

IBOFIO 

OBTAIN A ROW IN TABLE FI VIA ACCESS PATH FIO. 

SELECT FIFIL, FIHOS, FIFUN, FIPFN, FILNA, FIFTC, FIUSR, FICT, 
FIMOD, FISTA, FIVSN 
FROM FI IN ENGINEERING_DATA_DATABASE 
WHERE FIFIL = : FIFIL 
ORDER BY FIFIL ASC 
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IBOFIl 

OBTAIN A ROW IN TABLE FI VIA ACCESS PATH FIl. 

SELECT FIFIL, FIHOS, FIFUN, FIPFN, FILNA, FIFTC, FIUSR, FICT, 
FIMOD, FISTA, FIVSN 
FROM FI IN ENGINEERING_DATA_DATABASE 
WHERE FIHOS = : FIHOS AND 
FIPFN = :FIPFN AND 
FIFUN = : FIFUN AND 
FILNA = : FILNA 

ORDER BY FIHOS ASC, FIPFN ASC, FIFUN ASC, FILNA ASC 


IBOFI2 

OBTAIN A ROW IN TABLE FI VIA ACCESS PATH FI2. 

SELECT FIFIL, FIHOS, FIFUN, FIPFN, FILNA, FIFTC, FIUSR, FICT, 
FIMOD, FISTA, FIVSN 
FROM FI IN ENGINEERING_DATA_DATABASE 
WHERE FIUSR = : FIUSR 

ORDER BY FIHOS ASC, FIFUN ASC, FIPFN ASC, FILNA ASC 


IBOFI3 

OBTAIN A ROW IN TABLE FI VIA ACCESS PATH FI3. 

SELECT FIFIL, FIHOS, FIFUN, FIPFN, FILNA, FIFTC, FIUSR, FICT, 
FIMOD, FISTA, FIVSN 
FROM FI IN ENGINEERING_DATA_DATABASE 
WHERE FIHOS = : FIHOS AND 
FIFUN = :FIFUN 

ORDER BY FIHOS ASC, FIFUN ASC, FIPFN ASC 


IBOFI4 

OBTAIN A ROW IN TABLE FI VIA ACCESS PATH FI4. 

SELECT FIFIL, FIHOS, FIFUN. FIPFN, FILNA, FIFTC, FIUSR, FICT, 
FIMOD, FISTA, FIVSN 
FROM FI IN ENGINEERING_DATA_DATABASE 
WHERE FIFTC = : FI FTC 
ORDER BY FIFTC ASC, FIPFN ASC 


IBOFI5 

OBTAIN A ROW IN TABLE FI VIA ACCESS PATH FIB. 

SELECT FIFIL, FIHOS, FIFUN, FIPFN, FILNA, FIFTC, FIUSR, FICT, 
FIMOD. FISTA, FIVSN 
FROM FI IN ENGINEERING_DATA_DATABASE 
WHERE FIHOS = : FIHOS 
ORDER BY FIHOS ASC, FIPFN ASC 
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IBOFI6 

OBTAIN A ROW IN TABLE FI VIA ACCESS PATH FI6. 

SELECT FIFIL, FIHOS, FIFUN, FIPFN, FILNA, FIFTC, FIUSR, FICT, 
FIMOD, FISTA. FIVSN 

INTO iFIFIL, :FIHOS, :FIFUN, :FIPFN, iFILNA, :FIFTC, :FIUSR. :FICT, 
: FIMOD, : FISTA, : FIVSN 
FROM FI IN ENGINEER I NG_DATA_DATABASE 
WHERE FIPFN = :FIPFN 


IBAFIO 

OBTAIN A ROW IN TABLE FI USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH FIO. 

SELECT FIFIL, FIHOS, FIFUN, FIPFN, FILNA, FIFTC, FIUSR, FICT, 
FIMOD, FISTA, FIVSN 
FROM FI IN ENGINEERING_DATA_DATABASE 
WHERE FIFIL >= .-FIFIL 
ORDER BY FIFIL ASC 


IBAFIl 

OBTAIN A ROW IN TABLE FI USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH FI1. 

SELECT FIFIL, FIHOS, FIFUN, FIPFN, FILNA, FIFTC, FIUSR, FICT, 
FIMOD, FISTA, FIVSN 
FROM FI IN ENGINEERING_DATA_DATABASE 
WHERE (FIHOS > : FIHOS) 

OR ((FIHOS = :FIHOS) AND (FIPFN > :FIPFN)) 

OR ((FIHOS = : FIHOS AND FIPFN = : FIPFN) AND (FIFUN > : FIFUN)) 

OR ((FIHOS = : FIHOS AND FIPFN = : FIPFN AND FIFUN = : FIFUN) AND 
(FILNA > : FILNA)) 

OR (FIHOS = : FIHOS AND FIPFN = : FIPFN AND FIFUN = : FIFUN AND 
FILNA = : FILNA) 

ORDER BY FIHOS ASC, FIPFN ASC, FIFUN ASC, FILNA ASC 

IBAFI2 

OBTAIN A ROW IN TABLE FI USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH FI2. 

SELECT FIFIL, FIHOS, FIFUN, FIPFN, FILNA, FIFTC, FIUSR, FICT, 
FIMOD, FISTA, FIVSN 
FROM FI IN ENGINEERING_DATA_DATABASE 
WHERE FIUSR >= : FIUSR 

ORDER BY FIUSR ASC, FIHOS ASC, FIFUN ASC, FIPFN ASC, FILNA ASC 
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IBAFI3 

OBTAIN A ROW IN TABLE FI USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH FIS. 

SELECT FIFIL, FIHOS, FIFUN, FIPFN, FILNA, FIFTC, FIUSR, FICT, 
FIMOD. FISTA. FIVSN 
FROM FI IN ENGINEER I NG_DATA_DATABASE 
WHERE (FIHOS > : FIHOS) 

OR ((FIHOS = : FIHOS) AND (FIFUN > : FIFUN)) 

OR (FIHOS = : FIHOS AND FIFUN = : FIFUN) 

ORDER BY FIHOS ASC, FIFUN ASC 

IBAFI4 

OBTAIN A ROW IN TABLE FI USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH FI4. 

SELECT FIFIL, FIHOS, FIFUN, FIPFN, FILNA, FIFTC, FIUSR. FICT, 
FIMOD, FISTA, FIVSN 
FROM FI IN ENGINEERING_DATA_DATABASE 
WHERE FIFTC >= : FIFTC 
ORDER BY FIFTC ASC 


IBAFI5 

OBTAIN A ROW IN TABLE FI USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH FIS. 

SELECT FIFIL. FIHOS, FIFUN. FIPFN, FILNA, FIFTC, FIUSR, FICT. 

FIMOD. FISTA, FIVSN 
FROM FI IN ENGINEER I NG_DATA_DATABASE 
WHERE FIHOS >= : FIHOS 
ORDER BY FIHOS ASC 


IBEFI2 

OBTAIN THE NEXT DUPLICATE ROW FROM TABLE FI VIA ACCESS PATH FI2. 
SAVE THE CURRENT POSITION IN TABLE FI. 

FETCH THE NEXT ROW FROM TABLE FI. 

SET :FIFIL, rFIHOS, :FIFUN. :FIPFN, :FILNA, :FIFTC, :FIUSR, 
:FICT, :FIMOD. iFISTA, :FIVSN 


IBEFI3 

OBTAIN THE NEXT DUPLICATE ROW FROM TABLE FI VIA ACCESS PATH FIB. 
SAVE THE CURRENT POSITION IN TABLE FI. 

FETCH THE NEXT ROW FROM TABLE FI. 

SET :FIFIL, rFIHOS, rFIFUN, rFIPFN, rFILNA, rFIFTC, rFIUSR, 
rFICT, : FIMOD, : FISTA, : FIVSN 
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IBEFI4 

OBTAIN THE NEXT DUPLICATE ROW FROM TABLE FI VIA ACCESS PATH FI4. 
SAVE THE CURRENT POSITION IN TABLE FI. 

FETCH THE NEXT ROW FROM TABLE FI. 

SET :FIFIL, :FIHOS, :FIFUN. :FIPFN, iFILNA, iFIFTC, :FIUSR, 
:FICT, :FIMOD, :FISTA, :FIVSN 


IBEFI5 

OBTAIN THE NEXT DUPLICATE ROW FROM TABLE FI VIA ACCESS PATH FIS. 
SAVE THE CURRENT POSITION IN TABLE FI. 

FETCH THE NEXT ROW FROM TABLE FI. 

SET :FIFIL, :FIHOS, :FIFUN, :FIPFN, :FILNA, :FIFTC, :FIUSR, 
:FICT, :FIMOD, iFISTA, iFIVSN 


IBFFIO 

OBTAIN THE FIRST ROW OF TABLE FI, ORDERED BY ACCESS PATH FIO. 

SELECT FIFIL, FIHOS. FIFUN, FIPFN, FILNA, FIFTC, FIUSR, FICT, 
FIMOD, FISTA, FIVSN 
FROM FI IN ENGINEERING_DATA_DATABASE 
ORDER BY FIFIL ASC 

IBFFIl 

OBTAIN THE FIRST ROW OF TABLE FI, ORDERED BY ACCESS PATH F1 1 . 

SELECT FIFIL, FIHOS, FiFUN, FIPFN, FILNA, FIFTC, FIUSR, FICT, 
FIMOD, FISTA, FIVSN 
FROM FI IN ENGINEER I NG_DATA_DAT ABASE 
ORDER BY FIHOS ASC, FIPFN ASC, FIFUN ASC, FILNA ASC 


IBFFI2 

OBTAIN THE FIRST ROW OF TABLE FI, ORDERED BY ACCESS PATH FI2. 

SELECT FIFIL, FIHOS, FIFUN, FIPFN, FILNA, FIFTC, FIUSR, FICT, 
FIMOD, FISTA, FIVSN 
FROM FI IN ENGINEERING_DATA_DATABASE 

ORDER BY FIUSR ASC, FIHOS ASC, FIFUN ASC, FIPFN ASC, FILNA ASC 


IBFFI3 

OBTAIN THE FIRST ROW OF TABLE FI, ORDERED BY ACCESS PATH FI3. 

SELECT FIFIL, FIHOS, FIFUN, FIPFN, FILNA, FIFTC, FIUSR, FICT, 
FIMOD, FISTA, FIVSN 
FROM FI IN ENGINEERING_DATA_DATABASE 
ORDER BY FIHOS ASC, FIFUN ASC 


IBFFI4 

OBTAIN THE FIRST ROW OF TABLE FI, ORDERED BY ACCESS PATH FI4. 

SELECT FIFIL, FIHOS, FIFUN, FIPFN, FILNA, FIFTC, FIUSR, FICT, 
FIMOD, FISTA, FIVSN 
FROM FI IN ENGINEERING_DATA_DATABASE 
ORDER BY FIFTC ASC 
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IBFFI6 

OBTAIN THE FIRST ROW OF TABLE FI, ORDERED BY ACCESS PATH FIS. 

SELECT FIFIL, FIHOS, FIFUN, FIPFN, FILNA, FIFTC, FIUSR, .FICT, 
FIMOD, FISTA, FIVSN 
FROM FI IN ENGINEERING_DATA_DATABASE 
ORDER BY FIHOS ASC 


IBNFIO 


OBTAIN THE NEXT ROW OF TABLE FI, ORDERED BY 
SET :FIFIL, :FIHOS, :FIFUN, :FIPFN, 


ACCESS PATH FID. 

:FILNA, :FIFTC, :FIUSR, 


:FICT, : FIMOD, : FISTA, : FIVSN 


IBNFIl 

OBTAIN THE NEXT ROW OF TABLE FI, ORDERED BY ACCESS PATH FI1. 

SET :FIFIL, :FIHOS. rFIFUN, :FIPFN. :FILNA, :FIFTC, iFIUSR, 
:FICT, : FIMOD, : FISTA, : FIVSN 


IBNFI2 

OBTAIN THE NEXT ROW OF TABLE FI, ORDERED BY ACCESS PATH FI2. 

SET :FIFIL, :FIHOS, rFIFUN, rFIPFN, rFILNA, rFIFTC, rFIUSR, 
rFICT, : FIMOD, rFISTA, : FIVSN 

IBNFI3 

OBTAIN THE NEXT ROW OF TABLE FI, ORDERED BY ACCESS PATH FI3. 

SET rFIFIL, rFIHOS, rFIFUN, rFIPFN, rFILNA, rFIFTC, rFIUSR, 
rFICT, r FIMOD, rFISTA, r FIVSN 


IBNFI4 

OBTAIN THE NEXT ROW OF TABLE FI, ORDERED BY ACCESS PATH FI4. 

SET rFIFIL, rFIHOS, rFIFUN, rFIPFN, rFILNA, rFIFTC, rFIUSR, 
rFICT, r FIMOD, rFISTA, r FIVSN 


IBNFI6 

OBTAIN THE NEXT ROW OF TABLE FI, ORDERED BY ACCESS PATH FIS. 

SET rFIFIL, rFIHOS, rFIFUN, rFIPFN, rFILNA, rFIFTC. rFIUSR, 
rFICT, r FIMOD, rFISTA, r FIVSN 

IBOUIFI 

USING COSET UIFI, OBTAIN THE ROW FROM TABLE UI THAT OWNS SPECIFIC 

ROWS IN MEMBER TABLE FI 

SELECT UIUSR, UIPWD, UISTA, UIUUN, UIDPT, UICMD, UIFIN, UIMIN, 
UILNA, UITTL, UIDELS, UIDELD, UISTR, UICTY, UIPHO, UIEDT 

INTO rUIUSR, rUIPWD, rUISTA, rUIUUN, rUIDPT, rUICMD, rUIFIN, 
rUIMIN, rUILNA, rUITTL, rUIDELS, rUIDELD, rUISTR, rUICTY, 
rUIPHO, rUIEDT 

FROM UI IN ENGINEERING_DATA_DATABASE 

WHERE UIUSR = rFIUSR 
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IBOHIFI 

USING COSET HIFI, OBTAIN THE ROW FROM TABLE HI THAT OWNS SPECIFIC 
ROWS IN MEMBER TABLE FI 

SELECT HIHOS, HIOFF, HIOS 

INTO :HIHOS, :HIOFF, :HIOS 

FROM HI IN ENGINEERING_DATA_DATABASE 

WHERE HIHOS = :FIHOS 

IBFUIFI 

OBTAIN THE FIRST ROW FROM MEMBER TABLE FI WITHIN COSET UIFI, USING 
ACCESS PATH FI2. 

SELECT FIFIL, FIHOS, FIFUN, FIPFN, FILNA, FIFTC, FIUSR, FICT, 
FIMOD, FISTA, FIVSN 
FROM FI IN ENGINEERING_DATA_DATABASE 
WHERE FIUSR = rUIUSR 

ORDER BY FIUSR ASC, FIHOS ASC, FIFUN ASC, FIPFN ASC, FILNA ASC 

IBFHIFI 

OBTAIN THE FIRST ROW FROM MEMBER TABLE FI WITHIN COSET HIFI, USING 
ACCESS PATH FIS. 

SELECT FIFIL, FIHOS, FIFUN, FIPFN, FILNA, FIFTC, FIUSR, FICT, 
FIMOD, FISTA, FIVSN 
FROM FI IN ENGINEERING_DATA_DATABASE 
WHERE FIHOS = : HIHOS 
ORDER BY FIHOS ASC 

IBNUIFI 

OBTAIN THE NEXT ROW FROM MEMBER TABLE FI WITHIN COSET UIFI. 

SET :FIFIL, .-FIHOS, .-FIFUN, .-FIPFN, .-FILNA, .-FIFTC, .-FIUSR, 
:FICT, :FIMOD, :FISTA, :FIVSN 

IBNHIFI 

OBTAIN THE NEXT ROW FROM MEMBER TABLE FI WITHIN COSET HIFI. 

SET :FIFIL, :FIHOS, :FIFUN, :FIPFN, :FILNA, :FIFTC, :FIUSR, 
:FICT, :FIMOD, iFISTA, :FIVSN 
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Family Information (FM) Routines 

The FM record contains the part family codes associated with part numbers. 
IBSFM 

STORE A NEW ROW IN TABLE FM. 

INSERT INTO FM IN ENGINEERING_DATA_DAT ABASE 
SET FMFAM = :FMFAM, 

FMTTL = :FMTTL 


IBMFM 

MODIFY AN EXISTING ROW IN TABLE FM. 

UDPATE FM IN ENGINEERING_DATA_DATABASE 
WHERE FMFAM = : FMFAM 
SET FMFAM = : FMFAM, 

FMTTL = : FMTTL 


IBDFM 

DELETE AN EXISTING ROW IN TABLE FM. 

DELETE FROM FM IN ENGINEERING_DATA_DATABASE 
WHERE FMFAM = : FMFAM 


IBOFMO 

OBTAIN A ROW IN TABLE FM VIA ACCESS PATH FMO. 
SELECT FMFAM, FMTTL 
FROM FM IN ENGINEERING_DATA_DATABASE 
WHERE FMFAM = : FMFAM 
ORDER BY FMFAM ASC 


IBAFMO 

OBTAIN A ROW IN TABLE FM USING AN APPROXIMATE KEY VALUE AND ACCESS PATH FMO. 
SELECT FMFAM, FMTTL 
FROM FM IN ENGINEERING_DATA_DATABASE 
WHERE FMFAM >= : FMFAM 
ORDER BY FMFAM ASC 


IBFFMO 

OBTAIN THE FIRST ROW OF TABLE FM, ORDERED BY ACCESS PATH FMO. 
SELECT FMFAM, FMTTL 
FROM FM IN ENGINEERING_DATA_DATABASE 
ORDER BY FMFAM ASC 


IBNFMO 

OBTAIN THE NEXT ROW OF TABLE FM, ORDERED BY ACCESS PATH FMO. 
SET : FMFAM, : FMTTL 
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File Permits (FP) Routines 

The FP table defines group and user permits to files. 

IBSFP 

STORE A NEW ROW IN TABLE FP. 

INSERT INTO FP IN ENGINEERING_DATA_DATABASE 
SET FPFIL = :FPFIL, 

FPUSR = ;FPUSR, 

FPMOD = :FPMOD 


IBMFP 

MODIFY AN EXISTING ROW IN TABLE FP. 

UDPATE FP IN ENGINEERING_DATA_DATABASE 
WHERE FPFIL = : FPFIL AND 
FPUSR = : FPUSR 
SET FPFIL = :FPFIL, 

FPUSR = : FPUSR, 

FPMOD = : FPMOD 

IBDFP 

DELETE AN EXISTING ROW IN TABLE FP. 

DELETE FROM FP IN ENGINEERING_DATA_DATABASE 
WHERE FPFIL = : FPFIL AND 
FPUSR = : FPUSR 


IBOFPO 

OBTAIN A ROW IN TABLE FP VIA ACCESS PATH FPO. 
SELECT FPFIL, FPUSR, FPMOD 
FROM FP IN ENGINEERING_DATA_DATABASE 
WHERE FPFIL = : FPFIL AND 
FPUSR = : FPUSR 

ORDER BY FPFIL ASC, FPUSR ASC 


IBOFPl 

OBTAIN A ROW IN TABLE FP VIA ACCESS PATH FP1. 
SELECT FPFIL, FPUSR, FPMOD 
FROM FP IN ENGINEERING.DATA.DATABASE 
WHERE FPFIL = : FPFIL 
ORDER BY FPFIL ASC 
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IBOFP2 

OBTAIN A ROW IN TABLE FP VIA ACCESS PATH FP2. 

SELECT FPFIL, FPUSR, FPMOD 

FROM FP IN ENGINEERING_DATA_DATABASE 

WHERE FPUSR = : FPUSR 

ORDER BY FPUSR ASC 

IBAFPO 

OBTAIN A ROW IN TABLE FP USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH FPO. 

SELECT FPFIL, FPUSR. FPMOD 

FROM FP IN ENGINEERING_DATA_DATABASE 

WHERE (FPFIL > : FPFIL) 

OR ((FPFIL = : FPFIL) AND (FPUSR > : FPUSR)) 

OR (FPFIL = : FPFIL AND FPUSR = : FPUSR) 

ORDER BY FPFIL ASC, FPUSR ASC 

IBAFPl 

OBTAIN A ROW IN TABLE FP USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH FP1. 

SELECT FPFIL, FPUSR, FPMOD 

FROM FP IN ENGINEERING_DATA_DATABASE 

WHERE FPFIL >= : FPFIL 

ORDER BY FPFIL ASC 


IBAFP2 

OBTAIN A ROW IN TABLE FP USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH FP2. 

SELECT FPFIL. FPUSR, FPMOD 

FROM FP IN ENGINEERING_DATA_DATABASE 

WHERE FPUSR >= : FPUSR 

ORDER BY FPUSR ASC 


IBEFPl 

OBTAIN THE NEXT DUPLICATE ROW FROM TABLE FP VIA ACCESS PATH FP1. 
SAVE THE CURRENT POSITION IN TABLE FP. 

FETCH THE NEXT ROW FROM TABLE FP . 

SET : FPFIL, : FPUSR, : FPMOD 


IBEFP2 

OBTAIN THE NEXT DUPLICATE ROW FROM TABLE FP VIA ACCESS PATH FP2 . 
SAVE THE CURRENT POSITION IN TABLE FP. 

FETCH THE NEXT ROW FROM TABLE FP . 

SET : FPFIL, : FPUSR, : FPMOD 
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IBFFPO 

OBTAIN THE FIRST ROW OF TABLE FP. ORDERED BY ACCESS PATH FPO. 

SELECT FPFIL, FPUSR, FPMOD 

FROM FP IN ENGINEER I NG_DATA_DATABASE 

ORDER BY FPFIL ASC. FPUSR ASC 

IBFFPl 

OBTAIN THE FIRST ROW OF TABLE FP, ORDERED BY ACCESS PATH FP1. 

SELECT FPFIL, FPUSR, FPMOD 

FROM FP IN ENGINEERING.DATA.DATABASE 

ORDER BY FPFIL ASC 

IBFFP2 

OBTAIN THE FIRST ROW OF TABLE FP, ORDERED BY ACCESS PATH FP2. 

SELECT FPFIL, FPUSR, FPMOD 

FROM FP IN ENGINEERING_DATA_DATABASE 

ORDER BY FPUSR ASC 

IBNFPO 

OBTAIN THE NEXT ROW OF TABLE FP, ORDERED BY ACCESS PATH FPO. 

SET : FPFIL, : FPUSR, : FPMOD 

IBNFPl 

OBTAIN THE NEXT ROW OF TABLE FP . ORDERED BY ACCESS PATH FPl. 

SET : FPFIL, : FPUSR, : FPMOD 

IBNFP2 

OBTAIN THE NEXT ROW OF TABLE FP , ORDERED BY ACCESS PATH FP2 . 

SET : FPFIL. : FPUSR, : FPMOD 

IBOFIFP 

USING COSET FIFP, OBTAIN THE ROW FROM TABLE FI THAT OWNS SPECIFIC 
ROWS IN MEMBER TABLE FP 

SELECT FIFIL, FIHOS, FIFUN, FIPFN, FILNA, FIFTC, FIUSR, FICT, 
FIMOD, FISTA, FIVSN 

INTO :FIFIL, :FIHOS, :FIFUN, zFIPFN, zFILNA, zFIFTC, iFIUSR, 
iFICT, : FIMOD, ; FISTA, : FIVSN 
FROM FI IN ENGINEERING_DATA_DATABASE 
WHERE FIFIL = : FPFIL 
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IBOUIFP 

USING COSET UIFP. OBTAIN THE ROW FROM TABLE UI THAT OWNS SPECIFIC 
ROWS IN MEMBER TABLE FP 

SELECT UIUSR, UIPWD, UISTA, UIUUN, UIDPT, UICMD, UIFIN, UIMIN, 
UILNA, UITTL, UIDELS, UIDELD, UISTR, UICTY, UIPHO, UIEDT 
INTO rUIUSR, :UIPWD, rUISTA, :UIUUN, :UIDPT, rUICMD, rUIFIN, 
:UIMIN, :UILNA, :UITTL, tUIDELS, :UIDELD, :UISTR, rUICTY, 

: UIPHO. ; UIEDT 

FROM UI IN ENGINEERING_DATA_DATABASE 
WHERE UIUSR = :FPUSR 


IBFFIFP 

OBTAIN THE FIRST ROW FROM MEMBER TABLE FP WITHIN COSET FIFP, USING 
ACCESS PATH FP1. 

SELECT FPFIL, FPUSR, FPMOD 

FROM FP IN ENGINEERING_DATA_DATABASE 

WHERE FPFIL = :FIFIL 

ORDER BY FPFIL ASC 


IBFUIFP 

OBTAIN THE FIRST ROW FROM MEMBER TABLE FP WITHIN COSET UIFP. USING 
ACCESS PATH FP2. 

SELECT FPFIL. FPUSR, FPMOD 

FROM FP IN ENGINEERING_DATA_DATABASE 

WHERE FPUSR = : UIUSR 

ORDER BY FPUSR ASC 


IBNFIFP 

OBTAIN THE NEXT ROW FROM MEMBER TABLE FP WITHIN COSET FIFP. 
SET : FPFIL, : FPUSR, : FPMOD 


IBNUIFP 

OBTAIN THE NEXT ROW FROM MEMBER TABLE FP WITHIN COSET UIFP. 
SET : FPFIL, : FPUSR, : FPMOD 
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File Types (FT) Routines 

The FT table defines all application types known to EDL. Each type of engineering 
data is stored on a file. Every file must be known as one of these types. 

IBSFT 

STORE A NEW ROW IN TABLE FT. 

INSERT INTO FT IN ENGINEERING_DATA_DATABASE 


SET FTFTC = 

FTFTC , 

FTNAM = 

FTNAM, 

FTAPN = 

FTAPN, 

FTLFN = 

FTLFN, 

FTCHR = 

FTCHR , 

FTMUL = 

FTMUL , 

FTLFNR = 

: FTLFNR, 

FTPRT = 

FTPRT, 

FTTYP = 

FTTYP 


IBMFT 

MODIFY AN EXISTING ROW IN TABLE FT. 

UDPATE FT IN ENGINEERING_DATA_DATABASE 
WHERE FTFTC = :FTFTC 
SET FTFTC = : FTFTC. 

FTNAM = :FTNAM, 

FTAPN = :FTAPN, 

FTLFN = iFTLFN, 

FTCHR = :FTCHR, 

FTMUL = :FTMUL, 

FTLFNR = :FTLFNR, 

FTPRT = :FTPRT, 

FTTYP = :FTTYP 

IBDFT 

DELETE AN EXISTING ROW IN TABLE FT. 

DELETE FROM FT IN ENGINEERING_DATA_DATABASE 
WHERE FTFTC = : FTFTC 

IBOFTO 

OBTAIN A ROW IN TABLE FT VIA ACCESS PATH FTO. 

SELECT FTFTC, FTNAM, FTAPN, FTLFN, FTCHR, FTMUL, FTLFNR, FTPRT, 
FTTYP 

FROM FT IN ENGINEERING_DATA_DATABASE 
WHERE FTFTC = : FTFTC 
ORDER BY FTFTC ASC 
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IBOFTl 

OBTAIN A ROW IN TABLE FT VIA ACCESS PATH FTl. 

SELECT FTFTC,- FTNAM, FTAPN, FTLFN, FTCHR, FTMUL, FTLFNR, FTPRT, 
FTTYP 

FROM FT IN ENGINEERING_DATA_DATABASE 
WHERE FTNAM = : FTNAM 
ORDER BY FTNAM ASC 

IBOFT2 

OBTAIN A ROW IN TABLE FT VIA ACCESS PATH FT2. 

SELECT FTFTC, FTNAM, FTAPN, FTLFN, FTCHR, FTMUL, FTLFNR, FTPRT, 

FTTYP 

FROM FT IN ENGINEERING_DATA_DATABASE 
WHERE FTLFN = : FTLFN 
ORDER BY FTLFN ASC 

IBOFT3 

OBTAIN A ROW IN TABLE FT VIA ACCESS PATH FT3. 

SELECT FTFTC, FTNAM, FTAPN, FTLFN, FTCHR, FTMUL, FTLFNR, FTPRT, 
FTTYP 

FROM FT IN ENGINEERING_DATA_DATABASE 

WHERE FTAPN = : FTAPN 

ORDER BY FTAPN ASC, FTNAM ASC 

IBAFTO 

OBTAIN A ROW IN TABLE FT USING AN APPROXIMATE KEY VALUE AND ACCESS PATH FTO . 
SELECT FTFTC, FTNAM, FTAPN, FTLFN, FTCHR, FTMUL, FTLFNR, FTPRT, 

FTTYP 

FROM FT IN ENGINEERING_DATA_DATABASE 
WHERE FTFTC >= : FTFTC 
ORDER BY FTFTC ASC 

IBAFTl 

OBTAIN A ROW IN TABLE FT USING AN APPROXIMATE KEY VALUE AND ACCESS PATH FTl. 
SELECT FTFTC, FTNAM, FTAPN, FTLFN, FTCHR, FTMUL, FTLFNR, FTPRT, 
FTTYP 

FROM FT IN ENGINEER I NG_DATA_DATABASE 
WHERE FTNAM >= : FTNAM 
ORDER BY FTNAM ASC 

IBAFT2 

OBTAIN A ROW IN TABLE FT USING AN APPROXIMATE KEY VALUE AND ACCESS PATH FT2 . 
SELECT FTFTC, FTNAM, FTAPN, FTLFN, FTCHR, FTMUL, FTLFNR, FTPRT, 

FTTYP 

FROM FT IN ENGINEERING_DATA_DATABASE 
WHERE FTLFN >= : FTLFN 
ORDER BY FTLFN ASC 
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IBAFT3 

OBTAIN A ROW IN TABLE FT USING AN APPROXIMATE KEY VALUE AND ACCESS PATH FT3. 
SELECT FTFTC, FTNAM, FTAPN, FTLFN, FTCHR, FTMUL, FTLFNR, FTPRT, 
FTTYP 

FROM FT IN ENGINEERING_DATA_DATABASE 

WHERE FTAPN >= : FTAPN 

ORDER BY FTAPN ASC, FTNAM ASC 

IBEFT2 

OBTAIN THE NEXT DUPLICATE ROW FROM TABLE FT VIA ACCESS PATH FT2. 

SAVE THE CURRENT POSITION IN TABLE FT. 

FETCH THE NEXT ROW FROM TABLE FT. 

SET : FTFTC, : FTNAM, : FTAPN, : FTLFN, : FTCHR, : FTMUL, : FTLFNR, 

: FTPRT, : FTTYP 


IBEFT3 

OBTAIN THE NEXT DUPLICATE ROW FROM TABLE FT VIA ACCESS PATH FT3. 

SAVE THE CURRENT POSITION IN TABLE FT. 

FETCH THE NEXT ROW FROM TABLE FT. 

SET : FTFTC, : FTNAM, : FTAPN, : FTLFN, : FTCHR, : FTMUL, : FTLFNR, 

: FTPRT, : FTTYP 

IBFFTO 

OBTAIN THE FIRST ROW OF TABLE FT, ORDERED BY ACCESS PATH FTO . 

SELECT FTFTC, FTNAM, FTAPN, FTLFN, FTCHR, FTMUL, FTLFNR, FTPRT, 
FTTYP 

FROM FT IN ENGINEERING_DATA_DATABASE 
ORDER BY FTFTC ASC 

IBFFTl 

OBTAIN THE FIRST ROW OF TABLE FT, ORDERED BY ACCESS PATH FT1 . 

SELECT FTFTC, FTNAM, FTAPN, FTLFN, FTCHR, FTMUL, FTLFNR. FTPRT, 
FTTYP 

FROM FT IN ENGINEERING_DATA_DATABASE 
ORDER BY FTNAM ASC 

IBFFT2 

OBTAIN THE FIRST ROW OF TABLE FT, ORDERED BY ACCESS PATH FT2. 

SELECT FTFTC, FTNAM, FTAPN, FTLFN. FTCHR, FTMUL, FTLFNR, FTPRT, 
FTTYP 

FROM FT IN ENGINEERING_DATA_DAT ABASE 
ORDER BY FTLFN ASC 
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IBFFT3 

OBTAIN THE FIRST ROW OF TABLE FT, ORDERED BY ACCESS PATH FT3. 

SELECT FTFTC, FTNAM, FTAPN, FTLFN, FTCHR, FTMUL, FTLFNR, FTPRT, 
FTTYP 

FROM FT IN ENGINEERING_DATA_DATABASE 
ORDER BY FTAPN ASC, FTNAM ASC 


IBNFTO 

OBTAIN THE NEXT ROW OF TABLE FT, ORDERED BY ACCESS PATH FTO. 

SET : FTFTC, : FTNAM. ; FTAPN, : FTLFN, : FTCHR, : FTMUL, : FTLFNR, 
: FTPRT, : FTTYP 


IBNFTl 

OBTAIN THE NEXT ROW OF TABLE FT, ORDERED BY ACCESS PATH FTl. 

SET : FTFTC, -.FTNAM, -.FTAPN, : FTLFN, : FTCHR, : FTMUL, : FTLFNR. 
: FTPRT, : FTTYP 


IBNFT2 

OBTAIN THE NEXT ROW OF TABLE FT, ORDERED BY ACCESS PATH FT2. 

SET .-FTFTC, .-FTNAM, : FTAPN, : FTLFN, : FTCHR, : FTMUL, : FTLFNR, 
: FTPRT, : FTTYP 


IBNFT3 

OBTAIN THE NEXT ROW OF TABLE FT, ORDERED BY ACCESS PATH FT3. 

SET : FTFTC, : FTNAM, : FTAPN, : FTLFN, : FTCHR, : FTMUL, : FTLFNR, 
: FTPRT, : FTTYP 
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Group Information (GI) Routines 

The GI table defines the groups of EDL users. 

IBSGI 

STORE A NEW ROW IN TABLE GI . 

INSERT INTO GI IN ENGINEERING_DATA_DATABASE 
SET GIGRP = :GIGRP, 

GIGRPO = rGIGRPO, 

GIUSRA = ;GIUSRA, 

GITTL = :GITTL 

IBMGI 

MODIFY AN EXISTING ROW IN TABLE GI . 

UDPATE GI IN ENGINEERING_DATA_DATABASE 
WHERE GIGRP = : GIGRP 
SET GIGRP = : GIGRP, 

GIGRPO = .-GIGRPO, 

GIUSRA = iGIUSRA, 

GITTL = : GITTL 


IBDGI 

DELETE AN EXISTING ROW IN TABLE GI . 

DELETE FROM GI IN ENGINEERING_DATA_DATABASE 
WHERE GIGRP = : GIGRP 


IBOGIO 

OBTAIN A ROW IN TABLE GI VIA ACCESS PATH GIO. 
SELECT GIGRP. GIGRPO, GIUSRA, GITTL 
FROM GI IN ENGINEERING_DATA_DATABASE 
WHERE GIGRP = : GIGRP 
ORDER BY GIGRP ASC 


IBOGIl 

OBTAIN A ROW IN TABLE GI VIA ACCESS PATH GI 1 . 
SELECT GIGRP, GIGRPO, GIUSRA, GITTL 
FROM GI IN ENGINEERING_DATA_DATABASE 
WHERE GIGRPO = rGIGRPO AND 
GIGRP = : GIGRP ‘ 

ORDER BY GIGRPO ASC, GIGRP ASC 


IBOGI2 

OBTAIN A ROW IN TABLE GI VIA ACCESS PATH GI2. 
SELECT GIGRP, GIGRPO, GIUSRA, GITTL 
FROM GI IN ENGINEERING_DATA_DATABASE 
WHERE GIUSRA = : GIUSRA 
ORDER BY GIUSRA ASC 
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IBAGIO 

OBTAIN A ROW IN TABLE GI USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH GIO. 

SELECT GIGRP, GIGRPO, GIUSRA, GITTL 
FROM GI IN ENGINEERING_DATA_DATABASE 
WHERE GIGRP >= : GIGRP 
ORDER BY GIGRP ASC 


IBAGIl 

OBTAIN A ROW IN TABLE GI USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH GIl. 

SELECT GIGRP, GIGRPO, GIUSRA, GITTL 
FROM GI IN ENGINEERING_DATA_DATABASE 
WHERE (GIGRPO > : GIGRPO) 

OR ((GIGRPO = :GIGRPO) AND (GIGRP > :GIGRP)) 

OR (GIGRPO = .-GIGRPO AND GIGRP = :GIGRP) 

ORDER BY GIGRPO ASC, GIGRP ASC 


IBAGI2 

OBTAIN A ROW IN TABLE GI USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH GI2. 

SELECT GIGRP, GIGRPO, GIUSRA, GITTL 
FROM GI IN ENGINEERING_DATA_DATABASE 
WHERE GIUSRA >= rGIUSRA 
ORDER BY GIUSRA ASC 


IBEGIl 

OBTAIN THE NEXT DUPLICATE ROW FROM TABLE GI VIA ACCESS PATH GI 1 . 
SAVE THE CURRENT POSITION IN TABLE GI . 

FETCH THE NEXT ROW FROM TABLE GI . 

SET :GIGRP, :GIGRPO, iGIUSRA, :GITTL 


IBEGI2 

OBTAIN THE NEXT DUPLICATE ROW FROM TABLE GI VIA ACCESS PATH GI2. 
SAVE THE CURRENT POSITION IN TABLE GI . 

FETCH THE NEXT ROW FROM TABLE GI . 

SET :GIGRP, :GIGRPO, rGIUSRA, rGITTL 


IBFGIO 

OBTAIN THE FIRST ROW OF TABLE GI , ORDERED BY ACCESS PATH GIO. 
SELECT GIGRP, GIGRPO, GIUSRA, GITTL 
FROM GI IN ENGINEERING_DATA_DATABASE 
ORDER BY GIGRP ASC 
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IBFGIl 

OBTAIN THE FIRST ROW OF TABLE GI , ORDERED BY ACCESS PATH GI1. 

SELECT GIGRP, GIGRPO, GIUSRA, GITTL 
FROM GI IN ENGINEERING_DATA_DATABASE 
ORDER BY GIGRPO ASC, GIGRP ASC 

IBFGI2 

OBTAIN THE FIRST ROW OF TABLE GI , ORDERED BY ACCESS PATH GI2. 

SELECT GIGRP, GIGRPO, GIUSRA, GITTL 
FROM GI IN ENGINEERING_DATA_DATABASE 
ORDER BY GIUSRA ASC 

IBNGIO 

OBTAIN THE NEXT ROW OF TABLE GI , ORDERED BY ACCESS PATH GIO. 

SET -.GIGRP, -.GIGRPO, -.GIUSRA, -.GITTL 

IBNGIl 

OBTAIN THE NEXT ROW OF TABLE GI , ORDERED BY ACCESS PATH GI 1 . 

SET :GIGRP, rGIGRPO, rGIUSRA, :GITTL 

IBNGI2 

OBTAIN THE NEXT ROW OF TABLE GI , ORDERED BY ACCESS PATH GI2. 

SET :GIGRP, rGIGRPO, rGIUSRA, rGITTL 

IBOUIGI 

USING COSET UIGI, OBTAIN THE ROW FROM TABLE UI THAT OWNS SPECIFIC 
ROWS IN MEMBER TABLE GI 

SELECT UIUSR, UIPWD, UISTA, UIUUN, UIDPT, UICMD, UIFIN, UIMIN, 
UILNA, UITTL, UIDELS, UIDELD, UISTR, UICTY, UIPHO, UIEDT 
INTO rUIUSR, rUIPWD, rUISTA, rUIUUN, rUIDPT, rUICMD, rUIFIN, 
rUIMIN, rUILNA, rUITTL, rUIDELS, rUIDELD, rUISTR, rUICTY, 

rUIPHO, rUIEDT 

FROM UI IN ENGINEER I NG_DATA_DATABASE 
WHERE UIUSR = rGIUSRA 

IBOGIGI 

USING COSET GIGI, OBTAIN THE ROW FROM TABLE GI THAT OWNS SPECIFIC 
ROWS IN MEMBER TABLE GI 

SELECT GIGRP, GIGRPO, GIUSRA, GITTL 
INTO r GIGRP, rGIGRPO, rGIUSRA, rGITTL 
FROM GI IN ENGINEERING_DATA_DATABASE 
WHERE GIGRP = r GIGRP 
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IBFUIGI 

OBTAIN THE FIRST ROW FROM MEMBER TABLE GI WITHIN COSET UIGI, USING 
ACCESS PATH GI2. 

SELECT GIGRP, GIGRPO, GIUSRA, GITTL 
FROM GI IN ENGINEERING_DATA_DATABASE 
WHERE GIUSRA = :UIUSR 
ORDER BY GIUSRA ASC 


IBFGIGI 

OBTAIN THE FIRST ROW FROM MEMBER TABLE GI WITHIN COSET GIGI, USING 
ACCESS PATH GI1. 

SELECT GIGRP, GIGRPO, GIUSRA, GITTL 
FROM GI IN ENGINEERING_DATA_DATABASE 
WHERE GIGRPO = rGIGRPO AND 
GIGRP = : GIGRP 

ORDER BY GIGRPO ASC, GIGRP ASC 


IBNUIGI 

OBTAIN THE NEXT ROW FROM MEMBER TABLE GI WITHIN COSET UIGI. 
SET : GIGRP, : GIGRPO, : GIUSRA, : GITTL 


IBNGIGI 

OBTAIN THE NEXT ROW FROM MEMBER TABLE GI WITHIN COSET GIGI. 
SET : GIGRP, : GIGRPO, : GIUSRA, : GITTL 
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Group Members (GM) Routines 

The GM table lists the individual EDL users that compose a given group. 
IBSGM 

STORE A NEW ROW IN TABLE GM. 

INSERT INTO GM IN ENGINEERING_DATA_DATABASE 
SET GMGRP = :GMGRP, 

GMUSR « :GMUSR 

IBMGM 

MODIFY AN EXISTING ROW IN TABLE GM. 

UDPATE GM IN ENGINEERING_DATA_DATABASE 
WHERE GMGRP = : GMGRP AND 
GMUSR = : GMUSR 
SET GMGRP = : GMGRP, 

GMUSR = : GMUSR 

IBDGM 

DELETE AN EXISTING ROW IN TABLE GM. 

DELETE FROM GM IN ENGINEERING_DATA_DATABASE 
WHERE GMGRP = : GMGRP AND 
GMUSR = : GMUSR 

IBOGMO 

OBTAIN A ROW IN TABLE GM VIA ACCESS PATH GMO . 

SELECT GMGRP, GMUSR 
FROM GM IN ENGINEERING_DATA_DATABASE 
WHERE GMGRP = ; GMGRP AND 
GMUSR = : GMUSR 

ORDER BY GMGRP ASC, GMUSR ASC 

IBOGMl 

OBTAIN A ROW IN TABLE GM VIA ACCESS PATH GM1 . 

SELECT GMGRP, GMUSR 

FROM GM IN ENGINEERING_DATA_DAT ABASE 

WHERE GMGRP = : GMGRP 

ORDER BY GMGRP ASC, GMUSR ASC 

IBOGM2 

OBTAIN A ROW IN TABLE GM VIA ACCESS PATH GM2. 

SELECT GMGRP, GMUSR 

FROM GM IN ENGINEERING_DATA_DATABASE 

WHERE GMUSR = : GMUSR 

ORDER BY GMUSR ASC, GMGRP ASC 
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IBAGMO 

OBTAIN A ROW IN TABLE GM USING AN APPROXIMATE KEY VALUE AND ACCESS PATH GMO. 
SELECT GMGRP. GMUSR 
FROM GM IN ENGINEERING_DATA_DATABASE 
WHERE (GMGRP > : GMGRP) 

OR ((GMGRP = :GMGRP) AND (GMUSR > :GMUSR)) 

OR (GMGRP = : GMGRP AND GMUSR = : GMUSR) 

ORDER BY GMGRP ASC. GMUSR ASC 

IBAGMl 

OBTAIN A ROW IN TABLE GM USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH GMl. 

SELECT GMGRP, GMUSR 

FROM GM IN ENGINEER I NG_DATA_DAT ABASE 

WHERE GMGRP >= : GMGRP 

ORDER BY GMGRP ASC, GMUSR ASC 


IBAGM2 

OBTAIN A ROW IN TABLE GM USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH GM2. 

SELECT GMGRP, GMUSR 

FROM GM IN ENGINEERING_DATA_DATABASE 

WHERE GMUSR >= : GMUSR 

ORDER BY GMUSR ASC, GMGRP ASC 


IBEGMl 

OBTAIN THE NEXT DUPLICATE ROW FROM TABLE GM VIA ACCESS PATH GMl . 
SAVE THE CURRENT POSITION IN TABLE GM. 

FETCH THE NEXT ROW FROM TABLE GM. 

SET : GMGRP, : GMUSR 

IBEGM2 

OBTAIN THE NEXT DUPLICATE ROW FROM TABLE GM VIA ACCESS PATH GM2. 
SAVE THE CURRENT POSITION IN TABLE GM. 

FETCH THE NEXT ROW FROM TABLE GM. 

SET : GMGRP. : GMUSR 


IBFGMO 

OBTAIN THE FIRST ROW OF TABLE GM, ORDERED BY ACCESS PATH GMO. 
SELECT GMGRP, GMUSR 
FROM GM IN ENGINEERING_DATA_DATABASE 
ORDER BY GMGRP ASC, GMUSR ASC 
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IBFGMl 

OBTAIN THE FIRST ROW OF TABLE GM, ORDERED BY ACCESS PATH GM1 . 

SELECT GMGRP, GMUSR 

FROM GM IN ENGINEERING_DATA_DATABASE 

ORDER BY GMGRP ASC, GMUSR ASC 

IBFGM2 

OBTAIN THE FIRST ROW OF TABLE GM, ORDERED BY ACCESS PATH GM2. 

SELECT GMGRP, GMUSR 

FROM GM IN ENGINEERING^DATA^DATABASE 

ORDER BY GMUSR ASC, GMGRP ASC 

IBNGMO 

OBTAIN THE NEXT ROW OF TABLE GM, ORDERED BY ACCESS PATH GMO . 

SET : GMGRP, : GMUSR 

IBNGMl 

OBTAIN THE NEXT ROW OF TABLE GM, ORDERED BY ACCESS PATH GMl . 

SET : GMGRP, : GMUSR 

IBNGM2 

OBTAIN THE NEXT ROW OF TABLE GM, ORDERED BY ACCESS PATH GM2. 

SET : GMGRP, : GMUSR 

IBOUIGM 

USING COSET UIGM, OBTAIN THE ROW FROM TABLE UI THAT OWNS SPECIFIC 
ROWS IN MEMBER TABLE GM 

SELECT UIUSR, UIPWD, UISTA, UIUUN, UIDPT, UICMD, UIFIN, UIMIN, 
UILNA, UITTL, UIDELS, UIDELD, UISTR, UICTY, UIPHO, UIEDT 
INTO rUIUSR, lUIPWD, :UISTA, :UIUUN, rUIDPT, :UICMD, :UIFIN, 
:UIMIN, rUILNA, :UITTL, :UIDELS, lUIDELD, rUISTR, rUICTY, 
rUIPHO, :UIEDT 

FROM UI IN ENGINEERING_DATA_DATABASE 
WHERE UIUSR = : GMUSR 

IBOGIGM 

USING COSET GIGM, OBTAIN THE ROW FROM TABLE GI THAT OWNS SPECIFIC 
ROWS IN MEMBER TABLE GM 

SELECT GIGRP, GIGRPO, GIUSRA, GITTL 
INTO :GIGRP, rGIGRPO, :GIUSRA, :GITTL 
FROM GI IN ENGINEERING_DATA_DATABASE 
WHERE GIGRP = : GMGRP 
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IBFUIGM 

OBTAIN THE FIRST ROW FROM MEMBER TABLE GM WITHIN COSET UIGM, USING 
ACCESS PATH GM2. 

SELECT GMGRP, GMUSR 

FROM GM IN ENGINEERING_DATA_DATABASE 

WHERE GMUSR = :UIUSR 

ORDER BY GMUSR ASC, GMGRP ASC 


IBFGIGM 

OBTAIN THE FIRST ROW FROM MEMBER TABLE GM WITHIN COSET GIGM, USING 
ACCESS PATH GMl . 

SELECT GMGRP. GMUSR 

FROM GM IN ENGINEERING_DATA_DATABASE 

WHERE GMGRP <= :GIGRP 

ORDER BY GMGRP ASC, GMUSR ASC 


IBNUIGM 

OBTAIN THE NEXT ROW FROM MEMBER TABLE GM WITHIN COSET UIGM. 
SET : GMGRP, : GMUSR 


IBNGIGM 

OBTAIN THE NEXT ROW FROM MEMBER TABLE GM WITHIN COSET GIGM. 
SET : GMGRP. : GMUSR 


V, 
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Group Permits (GP) Routines 

The GP table defines the file permits for groups. 

IBSGP 

STORE A NEW ROW IN TABLE GP. 

INSERT INTO GP IN ENGINEERING_DATA_DATABASE 
SET GPFIL = :GPFIL, 

GPGRP = -.GPGRP, 

GPMOD = :GPMOD 

IBMGP 

MODIFY AN EXISTING ROW IN TABLE GP . 

UDPATE GP IN ENGINEERING_DATA_DATABASE 
WHERE GPFIL = :GPFIL AND 
GPGRP = : GPGRP 
SET GPFIL = :GPFIL, 

GPGRP = : GPGRP, 

GPMOD = : GPMOD 


IBDGP 

DELETE AN EXISTING ROW IN TABLE GP . 

DELETE FROM GP IN ENGINEERING_DATA_DATABASE 
WHERE GPFIL = :GPFIL AND 
GPGRP = : GPGRP 


IBOGPO 

OBTAIN A ROW IN TABLE GP VIA ACCESS PATH GPO. 
SELECT GPFIL, GPGRP, GPMOD 
FROM GP IN ENGINEERING_DATA_DATABASE 
WHERE GPFIL = :GPFIL AND 
GPGRP = : GPGRP 

ORDER BY GPFIL ASC, GPGRP ASC 


IBOGPl 

OBTAIN A ROW IN TABLE GP VIA ACCESS PATH GP1. 
SELECT GPFIL, GPGRP, GPMOD 
FROM GP IN ENGINEERING_DATA_DATABASE 
WHERE GPFIL = :GPFIL 
ORDER BY GPFIL ASC, GPGRP ASC 


IBOGP2 

OBTAIN A ROW IN TABLE GP VIA ACCESS PATH GP2. 
SELECT GPFIL, GPGRP, GPMOD 
FROM GP IN ENGINEERING_DATA_DATABASE 
WHERE GPGRP = : GPGRP 
ORDER BY GPGRP ASC 
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IBAGPO 

OBTAIN A ROW IN TABLE GP USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH GPO . . 

SELECT GPFIL, GPGRP, GPMOD 

FROM GP IN ENGINEERING_DATA_DATABASE 

WHERE (GPFIL > :GPFIL) 

OR ((GPFIL = :GPFIL) AND (GPGRP > :GPGRP)) 

OR (GPFIL = :GPFIL AND GPGRP = :GPGRP) 

ORDER BY GPFIL ASC, GPGRP ASC 


IBAGPl 

OBTAIN A ROW IN TABLE GP USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH GPl. 

SELECT GPFIL, GPGRP, GPMOD 

FROM GP IN ENGINEERING_DATA_DATABASE 

WHERE GPFIL >= :GPFIL 

ORDER BY GPFIL ASC, GPGRP ASC 


IBAGP2 

OBTAIN A ROW IN TABLE GP USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH GP2. 

SELECT GPFIL, GPGRP, GPMOD 

FROM GP IN ENGINEERING_DATA_DATABASE 

WHERE GPGRP >= : GPGRP 

ORDER BY GPGRP ASC 


IBEGPl 

OBTAIN THE NEXT DUPLICATE ROW FROM TABLE GP VIA ACCESS PATH GPl. 
SAVE THE CURRENT POSITION IN TABLE GP. 

FETCH THE NEXT ROW FROM TABLE GP . 

SET : GPFIL, : GPGRP, : GPMOD 

IBEGP2 

OBTAIN THE NEXT DUPLICATE ROW FROM TABLE GP VIA ACCESS PATH GP2 . 
SAVE THE CURRENT POSITION IN TABLE GP. 

FETCH THE NEXT ROW FROM TABLE GP . 

SET : GPFIL. : GPGRP. : GPMOD 


IBFGPO 

OBTAIN THE FIRST ROW OF TABLE GP, ORDERED BY ACCESS PATH GPO. 
SELECT GPFIL, GPGRP, GPMOD 
FROM GP IN ENGINEERING_DATA_DATABASE 
ORDER BY GPFIL ASC, GPGRP ASC 


Revision A 


Information Base Routines B-69 



Group Permits (GP) Routines 


IBFGPl 

OBTAIN THE FIRST ROW OF TABLE GP, ORDERED BY ACCESS PATH GP1. 
SELECT GPFIL, GPGRP, GPMOD 
FROM GP IN ENGINEERING_DATA_DATABASE 
ORDER BY GPFIL ASC, GPGRP ASC 


IBFGP2 

OBTAIN THE FIRST ROW OF TABLE GP, ORDERED BY ACCESS PATH GP2. 
SELECT GPFIL, GPGRP, GPMOD 
FROM GP IN ENGINEERING.DATA.DATABASE 
ORDER BY GPGRP ASC 


IBNGPO 

OBTAIN THE NEXT ROW OF TABLE GP , ORDERED BY ACCESS PATH GPO. 
SET : GPFIL. : GPGRP, : GPMOD 

IBNGPl 

OBTAIN THE NEXT ROW OF TABLE GP , ORDERED BY ACCESS PATH GP1. 
SET :GPFIL, :GPGRP, :GPMOD 

IBNGP2 

OBTAIN THE NEXT ROW OF TABLE GP , ORDERED BY ACCESS PATH GP2 . 
SET : GPFIL, : GPGRP, : GPMOD 


IBOFIGP 

USING COSET FIGP, OBTAIN THE ROW FROM TABLE FI THAT OWNS SPECIFIC 
ROWS IN MEMBER TABLE GP 

SELECT FIFIL, FIHOS, FIFUN, FIPFN, FILNA, FIFTC, FIUSR, FICT, 
FIMOD, FISTA, FIVSN 

INTO :FIFIL, :FIHOS, :FIFUN, :FIPFN, :FILNA, :FIFTC, :FIUSR. 

: FICT, : FIMOD, :FISTA, :FIVSN 
FROM FI IN ENGINEERING_DATA_DAT ABASE 
WHERE FIFIL = : GPFIL 


IBOGIGP 

USING COSET GIGP, OBTAIN THE ROW FROM TABLE GI THAT OWNS SPECIFIC 
ROWS IN MEMBER TABLE GP 

SELECT GIGRP, GIGRPO, GIUSRA, GITTL 
INTO : GIGRP, : GIGRPO, : GIUSRA, : GITTL 
FROM GI IN ENGINEERING.DATA.DATABASE 
WHERE GIGRP = .-GPGRP 
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IBFFIGP 

OBTAIN THE FIRST ROW. FROM MEMBER TABLE GP WITHIN COSET FIGP, USING 
ACCESS PATH GPl. 

SELECT GPFIL, GPGRP, GPMOD 

FROM GP IN ENGINEER I NG_DATA_DATABASE 

WHERE GPFIL = :FIFIL 

ORDER BY GPFIL ASC, GPGRP ASC 


IBFGIGP 

OBTAIN THE FIRST ROW FROM MEMBER TABLE GP WITHIN COSET GlGP, USING 
ACCESS PATH GP2. 

SELECT GPFIL, GPGRP, GPMOD 

FROM GP IN ENGINEERING_DATA_DATABASE 

WHERE GPGRP = :GIGRP 

ORDER BY GPGRP ASC 


IBNFIGP 

OBTAIN THE NEXT ROW FROM MEMBER TABLE GP WITHIN COSET FIGP. 
SET : GPFIL, : GPGRP, : GPMOD 


IBNGIGP 

OBTAIN THE NEXT ROW FROM MEMBER TABLE GP WITHIN COSET GIGP. 
SET : GPFIL, : GPGRP, : GPMOD 
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Group Security Authorization (GS) Routines 

The GS table defines the task categories that a user can use. 

IBSGS 

STORE A NEW ROW IN TABLE GS. 

INSERT INTO GS IN ENGINEERING_DATA_DATABASE 
SET GSGRP = rGSGRP, 

GSSEC = :GSSEC 

IBMGS 

MODIFY AN EXISTING ROW IN TABLE GS. 

UDPATE GS IN ENGINEERING_DATA_DATABASE 
WHERE GSSEC = : GSSEC AND 
GSGRP = : GSGRP 
SET GSGRP = rGSGRP, 

GSSEC = : GSSEC 


IBDGS 

DELETE AN EXISTING ROW IN TABLE GS. 

DELETE FROM GS IN ENGINEERING_DATA_DAT ABASE 
WHERE GSSEC = : GSSEC AND 
GSGRP = rGSGRP 


IBOGSO 

OBTAIN A ROW IN TABLE GS VIA ACCESS PATH GSO . 
SELECT GSGRP, GSSEC 
FROM GS IN ENGINEERING_DATA_DATABASE 
WHERE GSSEC = r GSSEC AND 
GSGRP = rGSGRP 

ORDER BY GSSEC ASC, GSGRP ASC 


IBOGSl 

OBTAIN A ROW IN TABLE GS VIA ACCESS PATH GS1 . 
SELECT GSGRP, GSSEC 
FROM GS IN ENGINEERING_DATA_DATABASE 
WHERE GSGRP = rGSGRP 
ORDER BY GSGRP ASC 
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IBAGSO 

OBTAIN A ROW IN TABLE GS USING AN APPROXIMATE KEY VALUE AND ACCESS PATH GSO. 
SELECT GSGRP, GSSEC 
FROM GS IN ENGINEERING_DATA_DATABASE 
WHERE (GSSEC > : GSSEC) 

OR ((GSSEC = : GSSEC) AND (GSGRP > : GSGRP)) 

OR (GSSEC = : GSSEC AND GSGRP = : GSGRP) 

ORDER BY GSSEC ASC, GSGRP ASC 

IBAGSl 

OBTAIN A ROW IN TABLE GS USING AN APPROXIMATE KEY VALUE AND ACCESS PATH GSl . 
SELECT GSGRP, GSSEC 
FROM GS IN ENGINEERING_DATA_DATABASE 
WHERE GSGRP >= : GSGRP 
ORDER BY GSGRP ASC 

IBEGSl 

OBTAIN THE NEXT DUPLICATE ROW FROM TABLE GS VIA ACCESS PATH GSl. 

SAVE THE CURRENT POSITION IN TABLE GS. 

FETCH THE NEXT ROW FROM TABLE GS. 

SET : GSGRP, : GSSEC 


IBFGSO 

OBTAIN THE FIRST ROW OF TABLE GS, ORDERED BY ACCESS PATH GSO. 
SELECT GSGRP, GSSEC 
FROM GS IN ENGINEERING_DATA_DATABASE 
ORDER BY GSSEC ASC, GSGRP ASC 


IBFGSl 

OBTAIN THE FIRST ROW OF TABLE GS, ORDERED BY ACCESS PATH GSl. 
SELECT GSGRP, GSSEC 
FROM GS IN ENGINEERING_DATA_DATABASE 
ORDER BY GSGRP ASC 


IBNGSO 

OBTAIN THE NEXT ROW OF TABLE GS, ORDERED BY ACCESS PATH GSO. 
SET : GSGRP, : GSSEC 
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IBNGSl 

OBTAIN THE NEXT ROW OF TABLE GS. ORDERED BY ACCESS PATH GS1. 
SET :GSGRP. :GSSEC 


IBOGIGS 

USING COSET GIGS. OBTAIN THE ROW FROM TABLE GI THAT OWNS SPECIFIC ROWS IN 
MEMBER TABLE GS 

SELECT GIGRP, GIGRPO, GIUSRA, GITTL 
INTO :GIGRP, :GIGRPO, rGIUSRA, :GITTL 
FROM GI IN ENGINEERING_DATA_DATABASE 
WHERE GIGRP = :GSGRP 


IBFGIGS 

OBTAIN THE FIRST ROW FROM MEMBER TABLE GS WITHIN COSET GIGS, USING 
ACCESS PATH GS1 . 

SELECT GSGRP, GSSEC 

FROM GS IN ENGINEERING_DATA_DATABASE 

WHERE GSGRP = : GIGRP 

ORDER BY GSGRP ASC 


IBNGIGS 

OBTAIN THE NEXT ROW FROM MEMBER TABLE GS WITHIN COSET GIGS. 
SET : GSGRP, : GSSEC 
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Host Information (HI) Routines 

The HI table defines all host machines known to EDL. Every file known to EDL must 
reside on a known host. 


IBSHI 

STORE A NEW ROW IN TABLE HI. 

INSERT INTO HI IN ENGINEERING_DATA_DATABASE 
SET HIHOS = :HIHOS, 

HIOFF = :HIOFF, 

HIOS = :HIOS 

IBMHI 

MODIFY AN EXISTING ROW IN TABLE HI. 

UDPATE HI IN ENGINEERING_DATA_DATABASE 
WHERE HIHOS = : HIHOS 
SET HIHOS = : HIHOS, 

HIOFF = :HIOFF, 

HIOS = :HIOS 

IBDHI 

DELETE AN EXISTING ROW IN TABLE HI. 

DELETE FROM HI IN ENGINEERING_DATA_DAT ABASE 
WHERE HIHOS = : HIHOS 

IBOHIO 

OBTAIN A ROW IN TABLE HI VIA ACCESS PATH HID. 

SELECT HIHOS, HIOFF, HIOS 

FROM HI IN ENGINEERING_DATA_DATABASE 

WHERE HIHOS = : HIHOS 

ORDER BY HIHOS ASC 

IBOHIl 

OBTAIN A ROW IN TABLE HI VIA ACCESS PATH H1 1 . 

SELECT HIHOS, HIOFF, HIOS 

FROM HI IN ENGINEERING_DATA_DATABASE 

WHERE HIOFF = ; HIOFF 

ORDER BY HIOFF ASC 

IBOHI3 

OBTAIN A ROW IN TABLE HI VIA ACCESS PATH HI3. 

SELECT HIHOS, HIOFF, HIOS 

FROM HI IN ENGINEERING_DATA_DATABASE 

WHERE HIOS = :HIOS 

ORDER BY HIOS ASC, HIHOS ASC 
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IBAHIO 

OBTAIN A ROW IN TABLE HI USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH HID. • 

SELECT HIHOS. HIOFF. HIOS 

FROM HI IN ENGINEERING_DATA_DATABASE 

WHERE HIHOS >= : HIHOS 

ORDER BY HIHOS ASC 


IBAHIl 

OBTAIN A ROW IN TABLE HI USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH HI1. 

SELECT HIHOS, HIOFF, HIOS 

FROM HI IN ENGINEERING_DATA_DATABASE 

WHERE HIOFF >= :HIOFF 

ORDER BY HIOFF ASC 


IBAHI3 

OBTAIN A ROW IN TABLE HI USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH HI3 . 

SELECT HIHOS, HIOFF, HIOS 

FROM HI IN ENGINEERING_DATA_DATABASE 

WHERE HIOS >= :HIOS 

ORDER BY HIOS ASC, HIHOS ASC 


IBEHI3 

OBTAIN THE NEXT DUPLICATE ROW FROM TABLE HI VIA ACCESS PATH HI3. 
SAVE THE CURRENT POSITION IN TABLE HI. 

FETCH THE NEXT ROW FROM TABLE HI. 

SET : HIHOS, : HIOFF, :HIOS 

IBFHIO 

OBTAIN THE FIRST ROW OF TABLE HI. ORDERED BY ACCESS PATH HID. 
SELECT HIHOS, HIOFF, HIOS 
FROM HI IN ENGINEERING_DATA_DATABASE 
ORDER BY HIHOS ASC 

IBFHIl 

OBTAIN THE FIRST ROW OF TABLE HI, ORDERED BY ACCESS PATH HIl. 
SELECT HIHOS. HIOFF, HIOS 
FROM HI IN ENGINEERING_DATA_DATABASE 
ORDER BY HIOFF ASC 
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IBFHI3 

OBTAIN THE FIRST ROW OF TABLE HI, ORDERED BY ACCESS PATH HI3. 
SELECT HIHOS, HIOFF, HIOS 
FROM HI IN ENGINEERING_DATA_DATABASE 
ORDER BY HIOS ASC, HIHOS ASC 


IBNHIO 

OBTAIN THE NEXT ROW OF TABLE HI, ORDERED BY ACCESS PATH HIO. 
SET : HIHOS, : HIOFF, :HIOS 


IBNHIl 

OBTAIN THE NEXT ROW OF TABLE HI, ORDERED BY ACCESS PATH H1 1 . 
SET :HIHOS, :HIOFF, :HIOS 


IBNHI3 

OBTAIN THE NEXT ROW OF TABLE HI, ORDERED BY ACCESS PATH HI3. 
SET : HIHOS, : HIOFF, :HIOS 
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Message Help (MH) Routines 

The MH table contains the help text associated with a message in the MI table. 

IBSMH 

STORE A NEW ROW IN TABLE MH. 

INSERT INTO MH IN MENU.DAT ABASE 

SET MHMNA = :MHMNA, 

MHLIN « :MHLIN, 

MHTXT = iMHTXT 


IBMMH 

MODIFY AN EXISTING ROW IN TABLE MH. 
UDPATE MH IN MENU.DAT ABASE 
WHERE MHLIN = : MHLIN AND 
MHMNA = : MHMNA 
SET MHMNA = : MHMNA. 

MHLIN = :MHLIN, 

MHTXT = : MHTXT 


IBDMH 

DELETE AN EXISTING ROW IN TABLE MH. 

DELETE FROM MH IN MENU_DAT ABASE 
WHERE MHLIN = : MHLIN AND 
MHMNA = : MHMNA 


IBOMHO 

OBTAIN A ROW IN TABLE MH VIA ACCESS PATH MHO. 
SELECT MHMNA, MHLIN, MHTXT 
FROM MH IN MENU.DATABASE 
WHERE MHLIN = ; MHLIN AND 
MHMNA = : MHMNA 

ORDER BY MHLIN ASC, MHMNA ASC 


IBOMHl 

OBTAIN A ROW IN TABLE MH VIA ACCESS PATH MH1 . 
SELECT MHMNA, MHLIN, MHTXT 
FROM MH IN MENU.DAT ABASE 
WHERE MHMNA » : MHMNA 
ORDER BY MHMNA ASC, MHLIN ASC 
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IBAMHO 

OBTAIN A ROW IN TABLE MH USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH MHO. 

SELECT MHMNA, MHLIN, MHTXT 
FROM MH IN MENU.DAT ABASE 
WHERE (MHLIN > :MHLIN) 

OR ((MHLIN = :MHLIN) AND (MHMNA > .-MHMNA)) 

OR (MHLIN = :MHLIN AND MHMNA = :MHMNA) 

ORDER BY MHLIN ASC, MHMNA ASC 


IBAMHl 

OBTAIN A ROW IN TABLE MH USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH MH1. 

SELECT MHMNA, MHLIN, MHTXT 
FROM MH IN MENU.DATABASE 
WHERE MHMNA >= : MHMNA 
ORDER BY MHMNA ASC, MHLIN ASC 


IBEMHl 

OBTAIN THE NEXT DUPLICATE ROW FROM TABLE MH VIA ACCESS PATH MHl . 
SAVE THE CURRENT POSITION IN TABLE MH. 

FETCH THE NEXT ROW FROM TABLE MH. 

SET ; MHMNA, -.MHLIN, -.MHTXT 


IBFMHO 

OBTAIN THE FIRST ROW OF TABLE MH, ORDERED BY ACCESS PATH MHO. 
SELECT MHMNA, MHLIN, MHTXT 
FROM MH IN MENU.DATABASE 
ORDER BY MHLIN ASC, MHMNA ASC 


IBFMHl 

OBTAIN THE FIRST ROW OF TABLE MH, ORDERED BY ACCESS PATH MHl. 
SELECT MHMNA, MHLIN, MHTXT 
FROM MH IN MENU.DATABASE 
ORDER BY MHMNA ASC, MHLIN ASC 


IBNMHO 

OBTAIN THE NEXT ROW OF TABLE MH, ORDERED BY ACCESS PATH MHO. 
SET : MHMNA, : MHLIN, : MHTXT 
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IBNMHl 

OBTAIN THE NEXT ROW OF TABLE MH, ORDERED BY ACCESS PATH MH1 . 
SET :MHMNA. :MHLIN, :MHTXT 


IBOMIMH 

USING COSET MIMH, OBTAIN THE ROW FROM TABLE MI THAT OWNS SPECIFIC 
ROWS IN MEMBER TABLE MH 

SELECT MIMNA, MITYP, MISTA, MITTL 
INTO rMIMNA, :MITYP, :MISTA. :MITTL 
FROM MI IN MENU.DATABASE 
WHERE MIMNA = :MHMNA 


IBFMIMH 

OBTAIN THE FIRST ROW FROM MEMBER TABLE MH WITHIN COSET MIMH, USING 
ACCESS PATH MH1 . 

SELECT MHMNA, MHLIN, MHTXT 
FROM MH IN MENU.DATABASE 
WHERE MHMNA = ; MIMNA 
ORDER BY MHMNA ASC, MHLIN ASC 


IBNMIMH 

OBTAIN THE NEXT ROW FROM MEMBER TABLE MH WITHIN COSET MIMH. 
SET : MHMNA, : MHLIN, : MHTXT 
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Message Information (MI) Routines 

The MI table contains all the prompts, menus, and error messages. 

IBSMI 

STORE A NEW ROW IN TABLE MI. 

INSERT INTO MI IN MENU.DAT ABASE 
SET MIMNA = :MIMNA, 

MITYP = :MITYP, 

MISTA = :MISTA, 

MITTL = ;MITTL 

IBMMI 

MODIFY AN EXISTING ROW IN TABLE MI. 

UDPATE MI IN MENU.DATABASE 
WHERE MIMNA = : MIMNA 
SET MIMNA = : MIMNA, 

MITYP = :MITYP, 

MISTA = :MISTA, 

MITTL = : MITTL 


IBDMI 

DELETE AN EXISTING ROW IN TABLE MI. 

DELETE FROM MI IN MENU_DAT ABASE 
WHERE MIMNA = : MIMNA 


IBOMIO 

OBTAIN A ROW IN TABLE MI VIA ACCESS PATH MID. 
SELECT MIMNA, MITYP, MISTA, MITTL 
FROM MI IN MENU.DATABASE 
WHERE MIMNA = : MIMNA 
ORDER BY MIMNA ASC 


IBAMIO 

OBTAIN A ROW IN TABLE MI USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH MID. 

SELECT MIMNA, MITYP, MISTA, MITTL 
FROM MI IN MENU.DATABASE 
WHERE MIMNA >» : MIMNA 
ORDER BY MIMNA ASC 
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IBFMIO 

OBTAIN THE FIRST ROW OF TABLE MI, ORDERED BY ACCESS PATH MIO. 
SELECT MIMNA, MITYP, MISTA, MITTL 
FROM MI IN MENU.DATABASE 
ORDER BY MIMNA ASC 


IBNMIO 

OBTAIN THE NEXT ROW OF TABLE MI. ORDERED BY ACCESS PATH MIO. 
SET : MIMNA. : MITYP. : MISTA, : MITTL 
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Option Keyword (OK) Routines 

The OK table contains the keywords for choosing option menu lines. 
IBSOK 

STORE A NEW ROW IN TABLE OK. 

INSERT INTO OK IN ME NU.DAT ABASE 

SET OKMNA = :OKMNA, 

OKKEY = :OKKEY, 

OKMLN = :OKMLN 


IBMOK 

MODIFY AN EXISTING ROW IN TABLE OK. 
UDPATE OK IN MENU.DATABASE 
WHERE OKKEY = : OKKEY AND 
OKMNA = : OKMNA 
SET OKMNA = : OKMNA, 

OKKEY = : OKKEY, 

OKMLN = : OKMLN 


IBDOK 

DELETE AN EXISTING ROW IN TABLE OK. 

DELETE FROM OK IN MENU.DATABASE 
WHERE OKKEY = : OKKEY AND 
OKMNA = : OKMNA 


IBOOKO 

OBTAIN A ROW IN TABLE OK VIA ACCESS PATH OKO. 
SELECT OKMNA, OKKEY, OKMLN 
FROM OK IN ME NU.DAT ABASE 
WHERE OKKEY = : OKKEY AND 
OKMNA = : OKMNA 

ORDER BY OKKEY ASC, OKMNA ASC 

IBOOKl 

OBTAIN A ROW IN TABLE OK VIA ACCESS PATH OKI. 
SELECT OKMNA, OKKEY. OKMLN 
FROM OK IN MENU.DATABASE 
WHERE OKMNA » : OKMNA AND 
OKMLN » : OKMLN 

ORDER BY OKMNA ASC, OKMLN ASC, OKKEY ASC 
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IBAOKO 

OBTAIN A ROW IN TABLE OK USING AN APPROXIMATE KEY VALUE AND ACCESS PATH OKO. 
SELECT OKMNA, OKKEY, OKMLN 
FROM OK IN MENU_DAT ABASE 
WHERE (OKKEY > : OKKEY) 

OR ((OKKEY = :OKKEY) AND (OKMNA > :OKMNA)) 

OR (OKKEY = : OKKEY AND OKMNA = : OKMNA) 

ORDER BY OKKEY ASC, OKMNA ASC 

IBAOKl 

OBTAIN A ROW IN TABLE OK USING AN APPROXIMATE KEY VALUE AND ACCESS PATH OKI. 
SELECT OKMNA, OKKEY, OKMLN 
FROM OK IN ME NU_DAT ABASE 
WHERE (OKMNA > : OKMNA) 

OR ((OKMNA = : OKMNA) AND (OKMLN > : OKMLN)) 

OR (OKMNA = : OKMNA AND OKMLN = : OKMLN) 

ORDER BY OKMNA ASC, OKMLN ASC, OKKEY ASC 

IBEOKl 

OBTAIN THE NEXT DUPLICATE ROW FROM TABLE OK VIA ACCESS PATH OKI. 

SAVE THE CURRENT POSITION IN TABLE OK. 

FETCH THE NEXT ROW FROM TABLE OK. 

SET : OKMNA, : OKKEY, : OKMLN 


IBFOKO 

OBTAIN THE FIRST ROW OF TABLE OK, ORDERED BY ACCESS PATH OKO. 
SELECT OKMNA, OKKEY, OKMLN 
FROM OK IN MENU.DATABASE 
ORDER BY OKKEY ASC, OKMNA ASC 


IBFOKl 

OBTAIN THE FIRST ROW OF TABLE OK, ORDERED BY ACCESS PATH OKI. 
SELECT OKMNA, OKKEY, OKMLN 
FROM OK IN ME NU.DAT ABASE 
ORDER BY OKMNA ASC, OKMLN ASC, OKKEY ASC 


IBNOKO 

OBTAIN THE NEXT ROW OF TABLE OK, ORDERED BY ACCESS PATH OKO. 
SET : OKMNA, : OKKEY, : OKMLN 
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IBNOKl 

OBTAIN THE NEXT ROW OF TABLE OK, ORDERED BY ACCESS PATH OKI. 
SET :OKMNA, :OKKEY, :OKMLN 


IBOOMOK 

USING COSET OMOK, OBTAIN THE ROW FROM TABLE OM THAT OWNS SPECIFIC 
ROWS IN MEMBER TABLE OK 

SELECT OMMNA, OMMLN, OMTXT 
INTO : OMMNA, : OMMLN, : OMTXT 
FROM OM IN MENU.DATABASE 
WHERE OMMNA = :OKMNA AND 
OMMLN = :OKMLN 


IBFOMOK 

OBTAIN THE FIRST ROW FROM MEMBER TABLE OK WITHIN COSET OMOK, USING 
ACCESS PATH OKI. 

SELECT OKMNA, OKKEY, OKMLN 
FROM OK IN MENU.DATABASE 
WHERE OKMNA = : OMMNA AND 
OKMLN = : OMMLN 

ORDER BY OKMNA ASC, OKMLN ASC, OKKEY ASC 


IBNOMOK 

OBTAIN THE NEXT ROW FROM MEMBER TABLE OK WITHIN COSET OMOK. 
SET : OKMNA, : OKKEY, : OKMLN 
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Option Menu (OM) Routines 

The OM table contains lines displayed on option menu lines. 
IBSOM 

STORE A NEW ROW IN TABLE OM. 

INSERT INTO OM IN MENU.DAT ABASE 

SET OMMNA = :OMMNA. 

OMMLN = :OMMLN, 

OMTXT = rOMTXT 

IBMOM 

MODIFY AN EXISTING ROW IN TABLE OM. 

UDPATE OM IN MENU.DATABASE 
WHERE OMMNA = : OMMNA AND 
OMMLN = : OMMLN 
SET OMMNA = : OMMNA, 

OMMLN = : OMMLN, 

OMTXT = : OMTXT 


IBDOM 

DELETE AN EXISTING ROW IN TABLE OM. 

DELETE FROM OM IN MENU.DAT ABASE 
WHERE OMMNA = : OMMNA AND 
OMMLN = : OMMLN 


IBOOMO 

OBTAIN A ROW IN TABLE OM VIA ACCESS PATH OMO. 
SELECT OMMNA, OMMLN, OMTXT 
FROM OM IN MENU.DAT ABASE 
WHERE OMMNA = : OMMNA AND 
OMMLN = : OMMLN 

ORDER BY OMMNA ASC, OMMLN ASC 
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IBOOMl 

OBTAIN A ROW IN TABLE OM VIA ACCESS PATH OM1. 

SELECT OMMNA, OMMLN, OMTXT 
FROM OM IN ME NU.DAT ABASE 
WHERE OMMNA = : OMMNA 
ORDER BY OMMNA ASC. OMMLN ASC 

IBAOMO 

OBTAIN A ROW IN TABLE OM USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH OMO. 

SELECT OMMNA, OMMLN. OMTXT 
FROM OM IN ME NU_DAT ABASE 
WHERE (OMMNA > : OMMNA) 

OR ((OMMNA = : OMMNA) AND (OMMLN > ; OMMLN)) 

OR (OMMNA = : OMMNA AND OMMLN = : OMMLN) 

ORDER BY OMMNA ASC. OMMLN ASC 


IBAOMl 

OBTAIN A ROW IN TABLE OM USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH OM1. 

SELECT OMMNA. OMMLN, OMTXT 
FROM OM IN MENU.DAT ABASE 
WHERE OMMNA >= : OMMNA 
ORDER BY OMMNA ASC, OMMLN ASC 


IBEOMl 

OBTAIN THE NEXT DUPLICATE ROW FROM TABLE OM VIA ACCESS PATH OM1 . 
SAVE THE CURRENT POSITION IN TABLE OM. 

FETCH THE NEXT ROW FROM TABLE OM. 

SET ; OMMNA, : OMMLN. : OMTXT 
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IBFOMO 

OBTAIN THE FIRST ROW OF TABLE OM, ORDERED BY ACCESS PATH OMO. 
SELECT OMMNA, OMMLN, OMTXT 
FROM OM IN MENU.DAT ABASE 
ORDER BY OMMNA ASC, OMMLN ASC 

IBFOMl 

OBTAIN THE FIRST ROW OF TABLE OM, ORDERED BY ACCESS PATH OMl . 
SELECT OMMNA, OMMLN, OMTXT 
FROM OM IN MENU.DAT ABASE 
ORDER BY OMMNA ASC, OMMLN ASC 

IBNOMO 

OBTAIN THE NEXT ROW OF TABLE OM, ORDERED BY ACCESS PATH OMO. 
SET .OMMNA, ; OMMLN, : OMTXT 

IBNOMl 

OBTAIN THE NEXT ROW OF TABLE OM, ORDERED BY ACCESS PATH OMl . 
SET : OMMNA, : OMMLN, ; OMTXT 


IBOMIOM 

USING COSET MIOM, OBTAIN THE ROW FROM TABLE MI THAT OWNS SPECIFIC 
ROWS IN MEMBER TABLE OM 

SELECT MIMNA, MITYP, MISTA, MITTL 
INTO :MIMNA, :MITYP, :MISTA, :MITTL 
FROM MI IN MENU.DATABASE 
WHERE MIMNA = : OMMNA 


IBFMIOM 

OBTAIN THE FIRST ROW FROM MEMBER TABLE OM WITHIN COSET MIOM, USING 
ACCESS PATH OMl. 

SELECT OMMNA, OMMLN, OMTXT 
FROM OM IN MENU.DATABASE 
WHERE OMMNA : MIMNA 

ORDER BY OMMNA ASC, OMMLN ASC 


IBNMIOM 

OBTAIN THE NEXT ROW FROM MEMBER TABLE OM WITHIN COSET MIOM. 
SET : OMMNA, : OMMLN, : OMTXT 
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Option Value (OV) Routines 

The OV table contains the values returned to the program when an option menu line is 
selected. 

IBSOV 

STORE A NEW ROW IN TABLE OV. 

INSERT INTO OV IN ME NU_DAT ABASE 
SET OVMNA = :OVMNA, 

OVMLN = :OVMLN. 

OVPOS = :OVPOS. 

OWAL = :OVVAL 

IBMOV 

MODIFY AN EXISTING ROW IN TABLE OV. 

UDPATE OV IN MENU.DAT ABASE 
WHERE OVMNA = : OVMNA AND 
OVMLN = : OVMLN AND 
OVPOS = : OVPOS 
SET OVMNA = : OVMNA, 

OVMLN = : OVMLN, 

OVPOS = : OVPOS, 

OWAL = :OWAL 


IBDOV 

DELETE AN EXISTING ROW IN TABLE OV. 

DELETE FROM OV IN MENU.DATABASE 
WHERE OVMNA = : OVMNA AND 
OVMLN = : OVMLN AND 
OVPOS = : OVPOS 


IBOOVO 

OBTAIN A ROW IN TABLE OV VIA ACCESS PATH OVO. 
SELECT OVMNA. OVMLN. OVPOS. OWAL 
FROM OV IN MENU.DATABASE 
WHERE OVMNA = : OVMNA AND 
OVMLN » : OVMLN AND 
OVPOS = : OVPOS 

ORDER BY OVMNA ASC. OVMLN ASC. OVPOS ASC 


IBOOVl 

OBTAIN A ROW IN TABLE OV VIA ACCESS PATH OV1. 
SELECT OVMNA, OVMLN, OVPOS, OWAL 
FROM OV IN MENU.DATABASE 
WHERE OVMNA = : OVMNA AND 
OVMLN = : OVMLN 

ORDER BY OVMNA ASC, OVMLN ASC, OVPOS ASC 
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IBAOVO 

OBTAIN A ROW IN TABLE OV USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH OVO. 

SELECT OVMNA, OVMLN, OVPOS, OWAL 
FROM OV IN MENU_DAT ABASE 
WHERE (OVMNA > : OVMNA) 

OR ((OVMNA = : OVMNA) AND (OVMLN > : OVMLN)) 

OR ((OVMNA = : OVMNA AND OVMLN = : OVMLN) AND (OVPOS > : OVPOS)) 
OR (OVMNA = : OVMNA AND OVMLN = : OVMLN AND OVPOS = : OVPOS) 
ORDER BY OVMNA ASC, OVMLN ASC, OVPOS ASC 


IBAOVl 

OBTAIN A ROW IN TABLE OV USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH OV1. 

SELECT OVMNA, OVMLN, OVPOS, OWAL 
FROM OV IN MENU_DATABASE 
WHERE (OVMNA > : OVMNA) 

OR ((OVMNA = : OVMNA) AND (OVMLN > : OVMLN)) 

OR (OVMNA = : OVMNA AND OVMLN = : OVMLN) 

ORDER BY OVMNA ASC, OVMLN ASC, OVPOS ASC 


IBEOVl 

OBTAIN THE NEXT DUPLICATE ROW FROM TABLE OV VIA ACCESS PATH OV1 . 
SAVE THE CURRENT POSITION IN TABLE OV. 

FETCH THE NEXT ROW FROM TABLE OV. 

SET : OVMNA, : OVMLN, : OVPOS, :OWAL 


IBFOVO 

OBTAIN THE FIRST ROW OF TABLE OV, ORDERED BY ACCESS PATH OVO. 
SELECT OVMNA, OVMLN, OVPOS, OWAL 
FROM OV IN MENU.DAT ABASE 
ORDER BY OVMNA ASC, OVMLN ASC. OVPOS ASC 


IBFOVl 

OBTAIN THE FIRST ROW OF TABLE OV, ORDERED BY ACCESS PATH OV1 . 
SELECT OVMNA, OVMLN, OVPOS, OWAL 
FROM OV IN MENU_DAT ABASE 
ORDER BY OVMNA ASC, OVMLN ASC, OVPOS ASC 
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IBNOyO 

OBTAIN THE NEXT ROW OF TABLE OV, ORDERED BY ACCESS PATH OVD. 
SET rOVMNA, :OVMLN. :OVPOS, :OWAL 

IBNOVl 

OBTAIN THE NEXT ROW OF TABLE OV, ORDERED BY ACCESS PATH OV1 . 
SET :OVMNA, :OVMLN, :OVPOS, :OVVAL 


IBOOMOV 

USING COSET OMOV, OBTAIN THE ROW FROM TABLE OM THAT OWNS SPECIFIC 
ROWS IN MEMBER TABLE OV 

SELECT OMMNA, OMMLN, OMTXT 
INTO : OMMNA, : OMMLN, : OMTXT 
FROM OM IN ME NU_DAT ABASE 
WHERE OMMNA = :OVMNA AND 
OMMLN = :OVMLN 


IBFOMOV 

OBTAIN THE FIRST ROW FROM MEMBER TABLE OV WITHIN COSET OMOV, USING 
ACCESS PATH OV1. 

SELECT OVMNA, OVMLN, OVPOS, OWAL 
FROM OV IN ME NU.DAT ABASE 
WHERE OVMNA = : OMMNA AND 
OVMLN = : OMMLN 

ORDER BY OVMNA ASC, OVMLN ASC, OVPOS ASC 


IBNOMOV 

OBTAIN THE NEXT ROW FROM MEMBER TABLE OV WITHIN COSET OMOV. 
SET : OVMNA. : OVMLN. : OVPOS. :OVVAL 
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Parts Data (PD) Routines 

The PD table contains the association between part number and engineering data. 
IBSPD 

STORE A NEW ROW IN TABLE PD. 

INSERT INTO PD IN ENGINEERING_DATA_DATABASE 
SET PDPRT = rPDPRT, 

PDEDN = rPDEDN 


IBMPD 

MODIFY AN EXISTING ROW IN TABLE PD. 

UDPATE PD IN ENGINEERING_DATA_DATABASE 
WHERE PDPRT = : PDPRT AND 
PDEDN = : PDEDN 
SET PDPRT = : PDPRT, 

PDEDN = : PDEDN 


IBDPD 

DELETE AN EXISTING ROW IN TABLE PD. 

DELETE FROM PD IN ENGINEER I NG_DATA_DAT ABASE 
WHERE PDPRT = : PDPRT AND 
PDEDN = : PDEDN 


IBOPDO 

OBTAIN A ROW IN TABLE PD VIA ACCESS PATH POO. 
SELECT PDPRT, PDEDN 
FROM PD IN ENGINEERING_DATA_DATABASE 
WHERE PDPRT = : PDPRT AND 
PDEDN = : PDEDN 

ORDER BY PDPRT ASC, PDEDN ASC 


IBOPDl 

OBTAIN A ROW IN TABLE PD VIA ACCESS PATH PD1 . 
SELECT PDPRT, PDEDN 
FROM PD IN ENGINEERING_DATA_DATABASE 
WHERE PDPRT = ; PDPRT 
ORDER BY PDPRT ASC 
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IBOPD2 

OBTAIN A ROW IN TABLE PD VIA ACCESS PATH PD2 . 

SELECT PDPRT, PDEDN 

FROM PD IN ENGINEERING_DATA_DATABASE 

WHERE PDEDN = : PDEDN 

ORDER BY PDEDN ASC, PDPRT ASC 

IBAPDO 

OBTAIN A ROW IN TABLE PD USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH PDO. 

SELECT PDPRT, PDEDN 

FROM PD IN ENGINEERING_DATA_DATABASE 

WHERE (PDPRT > : PDPRT) 

OR ((PDPRT = : PDPRT) AND (PDEDN > : PDEDN)) 

OR (PDPRT = : PDPRT AND PDEDN = : PDEDN) 

ORDER BY PDPRT ASC, PDEDN ASC 


IBAPDl 

OBTAIN A ROW IN TABLE PD USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH PD1. 

SELECT PDPRT, PDEDN 

FROM PD IN ENGINEERING_DATA_DATABASE 

WHERE PDPRT >= -.PDPRT 

ORDER BY PDPRT ASC 


IBAPD2 

OBTAIN A ROW IN TABLE PD USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH PD2. 

SELECT PDPRT, PDEDN 

FROM PD IN ENGINEERING_DATA_DATABASE 

WHERE PDEDN >= : PDEDN 

ORDER BY PDEDN ASC, PDPRT ASC 


IBEPDl 

OBTAIN THE NEXT DUPLICATE ROW FROM TABLE PD VIA ACCESS PATH PD1. 
SAVE THE CURRENT POSITION IN TABLE PD. 

FETCH THE NEXT ROW FROM TABLE PD. 

SET : PDPRT, : PDEDN 
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IBEPD2 

OBTAIN THE NEXT DUPLICATE ROW FROM TABLE PD VIA ACCESS PATH PD2. 
SAVE THE CURRENT POSITION IN TABLE PD. 

FETCH THE NEXT ROW FROM TABLE PD. 

SET rPDPRT, :PDEDN 


IBFPDO 

OBTAIN THE FIRST ROW OF TABLE PD, ORDERED BY ACCESS PATH PDO . 
SELECT PDPRT, PDEDN 
FROM PD IN ENGINEERING_DATA_DATABASE 
ORDER BY PDPRT ASC. PDEDN ASC 


IBFPDl 

OBTAIN THE FIRST ROW OF TABLE PD, ORDERED BY ACCESS PATH PD1 . 
SELECT PDPRT, PDEDN 
FROM PD IN ENGINEER I NG_DATA_DAT ABASE 
ORDER BY PDPRT ASC 


IBFPD2 

OBTAIN THE FIRST ROW OF TABLE PD, ORDERED BY ACCESS PATH PD2 . 
SELECT PDPRT, PDEDN 
FROM PD IN ENGINEERING_DATA_DATABASE 
ORDER BY PDEDN ASC. PDPRT ASC 


IBNPDO 

OBTAIN THE NEXT ROW OF TABLE PD, ORDERED BY ACCESS PATH PDO. 
SET : PDPRT, : PDEDN 


IBNPDl 

OBTAIN THE NEXT ROW OF TABLE PD. ORDERED BY ACCESS PATH PD1 . 
SET .-PDPRT, .-PDEDN 


IBNPD2 

OBTAIN THE NEXT ROW OF TABLE PD. ORDERED BY ACCESS PATH PD2 . 
SET ; PDPRT, : PDEDN 
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IBODIPD 

USING COSET DIPD, OBTAIN THE ROW FROM TABLE DI THAT OWNS SPECIFIC 
ROWS IN MEMBER TABLE PD 

SELECT DIEDN, DIFIL, DINAM, DISID, DIADT, DIEDT, DIUSR, DIREV, 
DISTA, DIDATC, DIDATM, DIDATR, DITTL, DITIMC, DITIMM, DITIMR 
INTO :DIEDN, :DIFIL, iDINAM, :DISID, :DIADT, :DIEDT, :DIUSR, 
:DIREV. :DISTA. :DIDATC, :DIDATM, :DIDATR, :DITTL, :DITIMC, 
:DITIMM, :DITIMR 

FROM DI IN ENGINEERING_DATA_DATABASE 
(WHERE DIEDN = rPDEDN 


IBOPIPD 

USING COSET PIPD, OBTAIN THE ROW FROM TABLE PI THAT OWNS SPECIFIC 
ROWS IN MEMBER TABLE PD 

SELECT PIPRT, PITTL 

INTO : PIPRT, : PITTL 

FROM PI IN ENGINEERING_DATA_DATABASE 

WHERE PIPRT = :PDPRT 


IBFDIPD 

OBTAIN THE FIRST ROW FROM MEMBER TABLE PD WITHIN COSET DIPD, USING 
ACCESS PATH PD2. 

SELECT PDPRT, PDEDN 

FROM PD IN ENGINEERING_DATA_DAT ABASE 

WHERE PDEDN = : DIEDN 

ORDER BY PDEDN ASC, PDPRT ASC 


IBFPIPD 

OBTAIN THE FIRST ROW FROM MEMBER TABLE PD WITHIN COSET PIPD, USING 
ACCESS PATH PD1. 

SELECT PDPRT, PDEDN 

FROM PD IN ENGINEERING_DATA_DATABASE 

WHERE PDPRT = : PIPRT 

ORDER BY PDPRT ASC 


IBNDIPD 


OBTAIN THE NEXT ROW 
SET : PDPRT, 


FROM MEMBER TABLE PD WITHIN COSET DIPD. 
: PDEDN 


IBNPIPD 


OBTAIN THE NEXT ROW 
SET : PDPRT, 


FROM MEMBER TABLE PD WITHIN COSET PIPD. 
: PDEDN 
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Part Family (PF) Routines 

The PF table contains the association between part numbers and part family codes. 

IBSPF 

STORE A NEW ROW IN TABLE PF . 

INSERT INTO PF IN ENGINEERING_DATA_DAT ABASE 
SET PFPRT = rPFPRT, 

PFFAM = ;PFFAM 

IBMPF 

MODIFY AN EXISTING ROW IN TABLE PF. 

UDPATE PF IN ENGINEERING_DATA_DATABASE 
WHERE PFFAM = : PFFAM AND 
PFPRT = : PFPRT 
SET PFPRT = : PFPRT, 

PFFAM = : PFFAM 

IBDPF 

DELETE AN EXISTING ROW IN TABLE PF. 

DELETE FROM PF IN ENGINEERING_DATA_DATABASE 
WHERE PFFAM = -.PFFAM AND 
PFPRT = : PFPRT 

IBOPFO 

OBTAIN A ROW IN TABLE PF VIA ACCESS PATH PFO . 

SELECT PFPRT, PFFAM 
FROM PF IN ENGINEERING_DATA_DATABASE 
WHERE PFFAM = .-PFFAM AND 
PFPRT = : PFPRT 

ORDER BY PFFAM ASC, PFPRT ASC 

IBOPFl 

OBTAIN A ROW IN TABLE PF VIA ACCESS PATH PF1. 

SELECT PFPRT, PFFAM 

FROM PF IN ENGINEERING_DATA_DATABASE 

WHERE PFFAM = : PFFAM 

ORDER BY PFFAM ASC, PFPRT ASC 

IBOPF2 

OBTAIN A ROW IN TABLE PF VIA ACCESS PATH PF2. 

SELECT PFPRT, PFFAM 

FROM PF IN ENGINEERING_DATA_DATABASE 

WHERE PFPRT = : PFPRT 

ORDER BY PFPRT ASC, PFFAM ASC 
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IBAPFO 

OBTAIN A ROW IN TABLE PF USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH PFO. 

SELECT PFPRT, PFFAM 

FROM PF IN ENGINEERING_DATA_DATABASE 

WHERE (PFFAM > : PFFAM) 

OR ((PFFAM = : PFFAM) AND (PFPRT > : PFPRT)) 

OR (PFFAM = : PFFAM AND PFPRT = ; PFPRT) 

ORDER BY PFFAM ASC, PFPRT ASC 


IBAPFl 

OBTAIN A ROW IN TABLE PF USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH PF1. 

SELECT PFPRT, PFFAM 

FROM PF IN ENGINEERING_DATA_DATABASE 

WHERE PFFAM >= : PFFAM 

ORDER BY PFFAM ASC, PFPRT ASC 


IBAPF2 

OBTAIN A ROW IN TABLE PF USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH PF2. 

SELECT PFPRT, PFFAM 

FROM PF IN ENGINEERING_DATA_DATABASE 

WHERE PFPRT >= .-PFPRT 

ORDER BY PFPRT ASC, PFFAM ASC 


IBEPFl 

OBTAIN THE NEXT DUPLICATE ROW FROM TABLE PF VIA ACCESS PATH PF1. 
SAVE THE CURRENT POSITION IN TABLE PF. 

FETCH THE NEXT ROW FROM TABLE PF. 

SET : PFPRT, : PFFAM 

IBEPF2 

OBTAIN THE NEXT DUPLICATE ROW FROM TABLE PF VIA ACCESS PATH PF2. 
SAVE THE CURRENT POSITION IN TABLE PF . 

FETCH THE NEXT ROW FROM TABLE PF. 

SET : PFPRT, : PFFAM 


IBFPFO 

OBTAIN THE FIRST ROW OF TABLE PF, ORDERED BY ACCESS PATH PFO. 
SELECT PFPRT, PFFAM 
FROM PF IN ENGINEERING_DATA_DATABASE 
ORDER BY PFFAM ASC, PFPRT ASC 
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IBFPFl 

OBTAIN THE FIRST ROW OF TABLE PF, ORDERED BY ACCESS PATH PF1. 
SELECT PFPRT, PFFAM 

FROM PF IN ENGINEERING_DATA_DATABASE • 

ORDER BY PFFAM ASC, PFPRT ASC 


IBFPF2 

OBTAIN THE FIRST ROW OF TABLE PF, ORDERED BY ACCESS PATH PF2. 
SELECT PFPRT, PFFAM 
FROM PF IN ENGINEER I NG.DATA.DAT ABASE 
ORDER BY PFPRT ASC, PFFAM ASC 


IBNPFO 

OBTAIN THE NEXT ROW OF TABLE PF, ORDERED BY ACCESS PATH PFO. 

SET : PFPRT, .-PFFAM 

IBNPFl 

OBTAIN THE NEXT ROW OF TABLE PF, ORDERED BY ACCESS PATH PFl. 

SET : PFPRT, : PFFAM 

IBNPF2 

OBTAIN THE NEXT ROW OF TABLE PF, ORDERED BY ACCESS PATH PF2. 

SET : PFPRT, : PFFAM 

IBOPIPF 

USING COSET PIPF, OBTAIN THE ROW FROM TABLE PI THAT OWNS SPECIFIC 
ROWS IN MEMBER TABLE PF 

SELECT PIPRT, PITTL 

INTO : PIPRT, : PITTL 

FROM PI IN ENGINEERING_DATA_DATABASE 

WHERE PIPRT = : PFPRT 


IBOFMPF 

USING COSET FMPF, OBTAIN THE ROW FROM TABLE FM THAT OWNS SPECIFIC 
ROWS IN MEMBER TABLE PF 

SELECT FMFAM, FMTTL 

INTO : FMFAM, : FMTTL 

FROM FM IN ENGINEERING_DATA_DATABASE 

WHERE FMFAM = : PFFAM 
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IBFPIPF 

OBTAIN THE FIRST ROW FROM MEMBER TABLE PF WITHIN COSET PIPF, USING 
ACCESS PATH PF2. 

SELECT PFPRT, PFFAM 

FROM PF IN ENGINEERING_DATA_DATABASE 

WHERE PFPRT = ;PIPRT 

ORDER BY PFPRT ASC, PFFAM ASC 


IBFFMPF 

OBTAIN THE FIRST ROW FROM MEMBER TABLE PF WITHIN COSET FMPF, USING 
ACCESS PATH PF1. 

SELECT PFPRT, PFFAM 

FROM PF IN ENGINEER I NG_DATA_DATABASE 

WHERE PFFAM = :FMFAM 

ORDER BY PFFAM ASC, PFPRT ASC 

IBNPIPF 

OBTAIN THE NEXT ROW FROM MEMBER TABLE PF WITHIN COSET PIPF. 

SET : PFPRT, : PFFAM 


IBNFMPF 

OBTAIN THE NEXT ROW FROM MEMBER TABLE PF WITHIN COSET FMPF. 
SET : PFPRT, : PFFAM 
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Part Information (PI) Routines 

The PI table defines the part numbers known to EDL. 

IBSPI 

STORE A NEW ROW IN TABLE PI. 

INSERT INTO PI IN ENGINEERING_DATA_DATABASE 
SET PIPRT = rPIPRT, 

PITTL = rPITTL 

IBMPI 

MODIFY AN EXISTING ROW IN TABLE PI. 

UDPATE PI IN ENGINEERING_DATA_DATABASE 
WHERE PIPRT = : PIPRT 
SET PIPRT = :PIPRT, 

PITTL = : PITTL 

IBDPI 

DELETE AN EXISTING ROW IN TABLE PI. 

DELETE FROM PI IN ENGINEERING_DATA_DATABASE 
WHERE PIPRT = : PIPRT 

IBOPIO 

OBTAIN A ROW IN TABLE PI VIA ACCESS PATH PIO. 

SELECT PIPRT, PITTL 

FROM PI IN ENGINEERING_DATA_DATABASE 

WHERE PIPRT = : PIPRT 

ORDER BY PIPRT ASC 

IBAPIO 

OBTAIN A ROW IN TABLE PI USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH PIO. 

SELECT PIPRT, PITTL 

FROM PI IN ENGINEERING_DATA_DATABASE 

WHERE PIPRT >= : PIPRT 

ORDER BY PIPRT ASC 

IBFPIO 

OBTAIN THE FIRST ROW OF TABLE PI, ORDERED BY ACCESS PATH PIO. 
SELECT PIPRT, PITTL 
FROM PI IN ENGINEERING_DATA_DATABASE 
ORDER BY PIPRT ASC 

IBNPIO 

OBTAIN THE NEXT ROW OF TABLE PI, ORDERED BY ACCESS PATH PIO. 

SET : PIPRT, : PITTL 
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Pending Permits (PP) Routines 

IBSPP 

STORE A NEW ROW IN TABLE PP. 

INSERT INTO PP IN ENGINEERING_DATA_DATABASE 


SET PPFIL = 

:PPFIL, 

PPUUN = 

: PPUUN, 

PPMOD = 

: PPMOD, 

PPFUN = 

: PPFUN 


IBMPP 

MODIFY AN EXISTING ROW IN TABLE PP . 

UDPATE PP IN ENGINEERING_DATA_DATABASE 
WHERE PPFIL = :PPFIL AND 
PPUUN = :PPUUN 
SET PPFIL = :PPFIL, 

PPUUN = : PPUUN, 

PPMOD = rPPMOD, 

PPFUN = :PPFUN 

IBDPP 

DELETE AN EXISTING ROW IN TABLE PP . 

DELETE FROM PP IN ENGINEERING_DATA_DAT ABASE 
WHERE PPFIL = :PPFIL AND 
PPUUN = : PPUUN 


IBOPPO 

OBTAIN A ROW IN TABLE PP VIA ACCESS PATH PPO. 
SELECT PPFIL, PPUUN, PPMOD, PPFUN 
FROM PP IN ENGINEERING_DATA_DATABASE 
WHERE PPFIL = : PPFIL AND 
PPUUN = : PPUUN 

ORDER BY PPFIL ASC, PPUUN ASC 


IBOPPl 

OBTAIN A ROW IN TABLE PP VIA ACCESS PATH PP1. 
SELECT PPFIL, PPUUN, PPMOD, PPFUN 
FROM PP IN ENGINEERING_DATA_DATABASE 
WHERE PPUUN = : PPUUN 
ORDER BY PPUUN ASC 
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IBOPP2 

OBTAIN A ROW IN TABLE PP VIA ACCESS PATH PP2. 

SELECT PPFIL, PPUUN, PPMOD, PPFUN 
FROM PP IN ENGINEERING_DATA_DATABASE 
WHERE PPFUN = : PPFUN 
ORDER BY PPFUN ASC 

IBOPP3 

OBTAIN A ROW IN TABLE PP VIA ACCESS PATH PP3. 

SELECT PPFIL, PPUUN, PPMOD, PPFUN 
FROM PP IN ENGINEERING_DATA_DATABASE 
WHERE PPFIL = rPPFIL 
ORDER BY PPFIL ASC 

IBAPPO 

OBTAIN A ROW IN TABLE PP USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH PPO. 

SELECT PPFIL, PPUUN, PPMOD, PPFUN 
FROM PP IN ENGINEERING_DATA_DATABASE 
WHERE (PPFIL > rPPFIL) 

OR ((PPFIL = :PPFIL) AND (PPUUN > :PPUUN)) 

OR (PPFIL = rPPFIL AND PPUUN = :PPUUN) 

ORDER BY PPFIL ASC, PPUUN ASC 


IBAPPl 

OBTAIN A ROW IN TABLE PP USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH PP1. 

SELECT PPFIL, PPUUN, PPMOD, PPFUN 
FROM PP IN ENGINEERING_DATA_DATABASE 
WHERE PPUUN >= : PPUUN 
ORDER BY PPUUN ASC 

IBAPP2 

OBTAIN A ROW IN TABLE PP USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH PP2 . 

SELECT PPFIL, PPUUN, PPMOD, PPFUN 
FROM PP IN ENGINEERING_DATA_DATABASE 
WHERE PPFUN >= : PPFUN 
ORDER BY PPFUN ASC 


IBAPP3 

OBTAIN A ROW IN TABLE PP USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH PP3. 

SELECT PPFIL, PPUUN, PPMOD, PPFUN 
FROM PP IN ENGINEERING_DATA_DATABASE 
WHERE PPFIL >= :PPFIL 
ORDER BY PPFIL ASC 


B>102 EDL Customization for NOS 


Revision A 



Pending Permits (PP) Routines 


IBEPPl 

OBTAIN THE NEXT DUPLICATE ROW FROM TABLE PP VIA ACCESS PATH PPl. 
SAVE THE CURRENT POSITION IN TABLE PP. 

FETCH THE NEXT ROW FROM TABLE PP. 

SET :PPFIL. :PPUUN. :PPMOD, :PPFUN 


IBEPP2 

OBTAIN THE NEXT DUPLICATE ROW FROM TABLE PP VIA ACCESS PATH PP2. 
SAVE THE CURRENT POSITION IN TABLE PP. 

FETCH THE NEXT ROW FROM TABLE PP. 

SET rPPFIL, :PPUUN, :PPMOD, :PPFUN 


IBEPP3 

OBTAIN THE NEXT DUPLICATE ROW FROM TABLE PP VIA ACCESS PATH PP3. 
SAVE THE CURRENT POSITION IN TABLE PP. 

FETCH THE NEXT ROW FROM TABLE PP . 

SET :PPFIL, :PPUUN, :PPMOD, :PPFUN 


IBFPPO 

OBTAIN THE FIRST ROW OF TABLE PP, ORDERED BY ACCESS PATH PPO . 
SELECT PPFIL, PPUUN, PPMOD, PPFUN 
FROM PP IN ENGINEERING_DATA_DATABASE 
ORDER BY PPFIL ASC, PPUUN ASC 


IBFPPl 

OBTAIN THE FIRST ROW OF TABLE PP , ORDERED BY ACCESS PATH PPl. 
SELECT PPFIL, PPUUN, PPMOD, PPFUN 
FROM PP IN ENGINEERING.DATA.DATABASE 
ORDER BY PPUUN ASC 


IBFPP2 

OBTAIN THE FIRST ROW OF TABLE PP, ORDERED BY ACCESS PATH PP2. 
SELECT PPFIL, PPUUN, PPMOD, PPFUN 
FROM PP IN ENGINEERING.DATA.DATABASE 
ORDER BY PPFUN ASC 


IBFPP3 

OBTAIN THE FIRST ROW OF TABLE PP, ORDERED BY ACCESS PATH PP3. 
SELECT PPFIL, PPUUN. PPMOD, PPFUN 
FROM PP IN ENGINEERING.DATA.DATABASE 
ORDER BY PPFIL ASC 
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IBNPPO 

OBTAIN THE NEXT ROW OF TABLE PP, ORDERED BY ACCESS PATH PPO. 
SET :PPFIL, rPPUUN, :PPMOD. :PPFUN 

IBNPPl 

OBTAIN THE NEXT ROW OF TABLE PP. ORDERED BY ACCESS PATH PP1. 
SET :PPFIL, :PPUUN, iPPMOD, rPPFUN 

IBNPP2 

OBTAIN THE NEXT ROW OF TABLE PP, ORDERED BY ACCESS PATH PP2. 
SET :PPFIL, rPPUUN, :PPMOD, :PPFUN 

IBNPP3 

OBTAIN THE NEXT ROW OF TABLE PP. ORDERED BY ACCESS PATH PP3. 
SET :PPFIL, :PPUUN, :PPMOD, :PPFUN 


B>104 EDL Customization for NOS 


Revision A 



Part Vendors (PV) Routines 


Part Vendors (PV) Routines 

The PV table contains the associations of part numbers with vendors. 

IBSPV 

STORE A NEW ROW IN TABLE PV. 

INSERT INTO PV IN ENGINEERING_DATA_DATABASE 
SET PVPRT = rPVPRT. 

PWEN = rPWEN 

IBMPV 

MODIFY AN EXISTING ROW IN TABLE PV. 

UDPATE PV IN ENGINEERING_DATA_DAT ABASE 
WHERE PVPRT = : PVPRT AND 
PWEN = :PWEN 
SET PVPRT = -.PVPRT, 

PWEN = :PWEN 


IBDPV 

DELETE AN EXISTING ROW IN TABLE PV. 

DELETE FROM PV IN ENGINEERING_DATA_DATABASE 
WHERE PVPRT = : PVPRT AND 
PWEN = :PWEN 


IBOPVO 

OBTAIN A ROW IN TABLE PV VIA ACCESS PATH PVO. 
SELECT PVPRT, PWEN 
FROM PV IN ENGINEERING_DATA_DATABASE 
WHERE PVPRT = : PVPRT AND 
PWEN = :PWEN 

ORDER BY PVPRT ASC, PWEN ASC 


IBOPVl 

OBTAIN A ROW IN TABLE PV VIA ACCESS PATH PV1 . 
SELECT PVPRT, PWEN 
FROM PV IN ENGINEERING_DATA_DATABASE 
WHERE PVPRT = : PVPRT 
ORDER BY PVPRT ASC, PWEN ASC 


IBOPV2 

OBTAIN A ROW IN TABLE PV VIA ACCESS PATH PV2. 
SELECT PVPRT. PWEN 
FROM PV IN ENGINEERING_DATA_DATABASE 
WHERE PWEN = :PWEN 
ORDER BY PWEN ASC, PVPRT ASC 
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IBAPVO 

OBTAIN A ROW IN TABLE PV USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH PVO . 

SELECT PVPRT, PWEN 

FROM PV IN ENGINEERING_DATA_DATABASE 

WHERE (PVPRT > : PVPRT) 

OR ((PVPRT = : PVPRT) AND (PWEN > :PWEN)) 

OR (PVPRT = : PVPRT AND PWEN = :PWEN) 

ORDER BY PVPRT ASC, PWEN ASC 

IBAPVl 

OBTAIN A ROW IN TABLE PV USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH PV1. 

SELECT PVPRT, PWEN 

FROM PV IN ENGINEERING_DATA_DATABASE 

WHERE PVPRT >= : PVPRT 

ORDER BY PVPRT ASC, PWEN ASC 


IBAPV2 

OBTAIN A ROW IN TABLE PV USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH PV2 . 

SELECT PVPRT, PWEN 

FROM PV IN ENGINEERING_DATA_DATABASE 

WHERE PWEN >= :PWEN 

ORDER BY PWEN ASC, PVPRT ASC 


IBEPVl 

OBTAIN THE NEXT DUPLICATE ROW FROM TABLE PV VIA ACCESS PATH PV1 . 
SAVE THE CURRENT POSITION IN TABLE PV. 

FETCH THE NEXT ROW FROM TABLE PV. 

SET : PVPRT, :PWEN 
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IBEPV2 

OBTAIN THE NEXT DUPLICATE ROW FROM TABLE PV VIA ACCESS PATH PV2 . 
SAVE THE CURRENT POSITION IN TABLE PV. 

FETCH THE NEXT ROW FROM TABLE PV. 

SET :PVPRT, :PVVEN 

IBFPVO 

OBTAIN THE FIRST ROW OF TABLE PV, ORDERED BY ACCESS PATH PVO . 
SELECT PVPRT, PWEN 
FROM PV IN ENGINEERING.DATA.DATABASE 
ORDER BY PVPRT ASC, PWEN ASC 

IBFPVl 

OBTAIN THE FIRST ROW OF TABLE PV, ORDERED BY ACCESS PATH PV1 . 
SELECT PVPRT, PWEN 
FROM PV IN ENGINEERING.DATA.DATABASE 
ORDER BY PVPRT ASC, PWEN ASC 


IBFPV2 

OBTAIN THE FIRST ROW OF TABLE PV, ORDERED BY ACCESS PATH PV2 . 
SELECT PVPRT, PWEN 
FROM PV IN ENGINEERING.DATA.DATABASE 
ORDER BY PWEN ASC, PVPRT ASC 

IBNPVO 

OBTAIN THE NEXT ROW OF TABLE PV, ORDERED BY ACCESS PATH PVO. 
SET : PVPRT, :PWEN 

IBNPVl 

OBTAIN THE NEXT ROW OF TABLE PV, ORDERED BY ACCESS PATH PVl . 
SET : PVPRT, :PWEN 

IBNPV2 

OBTAIN THE NEXT ROW OF TABLE PV, ORDERED BY ACCESS PATH PV2. 
SET : PVPRT, :PWEN 


IBOVIPV 

USING COSET VIPV, OBTAIN THE ROW FROM TABLE VI THAT OWNS SPECIFIC 
ROWS IN MEMBER TABLE PV 

SELECT VIVEN, VINAM, VISTR, VICTY, VIPHO 
INTO :VIVEN, :VINAM, iVISTR, :VICTY, :VIPHO 
FROM VI IN ENGINEERING.DATA.DATABASE 
WHERE VIVEN = :PWEN 
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IBOPIPV 

USING COSET PIPV, OBTAIN THE ROW FROM TABLE PI THAT OWNS SPECIFIC 
ROWS IN MEMBER TABLE PV 

SELECT PIPRT, PITTL 

INTO : PIPRT, : PITTL 

FROM PI IN ENGINEERING_DATA_DATABASE 

WHERE PIPRT = :PVPRT 


IBFVIPV 

OBTAIN THE FIRST ROW FROM MEMBER TABLE PV WITHIN COSET VIPV, USING 
ACCESS PATH PV2. 

SELECT PVPRT, PWEN 

FROM PV IN ENGINEERING_DATA_DATABASE 

WHERE PWEN = :VIVEN 

ORDER BY PWEN ASC, PVPRT ASC 


IBFPIPV 

OBTAIN THE FIRST ROW FROM MEMBER TABLE PV WITHIN COSET PIPV, USING 
ACCESS PATH PVl . 

SELECT PVPRT, PWEN 

FROM PV IN ENGINEERING_DATA_DATABASE 

WHERE PVPRT = : PIPRT 

ORDER BY PVPRT ASC, PWEN ASC 


IBNVIPV 

OBTAIN THE NEXT ROW FROM MEMBER TABLE PV WITHIN COSET VIPV. 
SET : PVPRT, :PWEN 


IBNPIPV 

OBTAIN THE NEXT ROW FROM MEMBER TABLE PV WITHIN COSET PIPV. 
SET : PVPRT, :PWEN 
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Release Authorization (RA) Routines 

The RA table contains the release information for engineering data. 

IBSRA 

STORE A NEW ROW IN TABLE RA. 

INSERT INTO RA IN ENGINEERING_DATA_DAT ABASE 


RAREL = 

: RAREL, 

RAEDN = 

: RAEDN. 

RAEDNC = 

: RAEDNC, 

RAUSR = 

RAUSR , 

RASTA = 

RASTA, 

RADAT = 

RADAT 


IBMRA 

MODIFY AN EXISTING ROW IN TABLE RA. 

UDPATE RA IN ENGINEERING_DATA_DATABASE 


WHERE RAREL 

= : RAREL 

RAEDN 

= : RAEDN 

SET RAREL = 

: RAREL, 

RAEDN = 

: RAEDN, 

RAEDNC = 

: RAEDNC 

RAUSR = 

: RAUSR, 

RASTA = 

: RASTA, 

RADAT = 

: RADAT 


IBDRA 

DELETE AN EXISTING ROW IN TABLE RA. 

DELETE FROM RA IN ENGINEERING_DATA_DATABASE 
WHERE RAREL = :RAREL AND 
RAEDN = iRAEDN 


IBORAO 

OBTAIN A ROW IN TABLE RA VIA ACCESS PATH RAO. 

SELECT RAREL, RAEDN. RAEDNC, RAUSR, RASTA, RADAT 
FROM RA IN ENGINEERING.DATA.DATABASE 
WHERE RAREL = : RAREL AND 
RAEDN = : RAEDN 

ORDER BY RAREL ASC, RAEDN ASC 


IBORAl 

OBTAIN A ROW IN TABLE RA VIA ACCESS PATH RAT. 

SELECT RAREL, RAEDN, RAEDNC, RAUSR, RASTA, RADAT 
FROM RA IN ENGINEERING_DATA_DATABASE 
WHERE RAEDN = : RAEDN 
ORDER BY RAEDN ASC 
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IBORA2 

OBTAIN A ROW IN TABLE RA VIA ACCESS PATH RA2 . 

SELECT RAREL, RAEDN, RAEDNC, RAUSR, RASTA, RABAT 
FROM RA IN ENGINEERING_DATA_DATABASE 
WHERE RAREL = : RAREL 
ORDER BY RAREL ASC 

IBORA3 

OBTAIN A ROW IN TABLE RA VIA ACCESS PATH RA3. 

SELECT RAREL, RAEDN, RAEDNC, RAUSR, RASTA, RABAT 
FROM RA IN ENGINEERING_DATA_DATABASE 
WHERE RAUSR = : RAUSR 
ORDER BY RAUSR ASC 

IBORA4 

OBTAIN A ROW IN TABLE RA VIA ACCESS PATH RAA . 

SELECT RAREL, RAEDN, RAEDNC, RAUSR, RASTA, RABAT 
FROM RA IN ENGINEERING_DATA_DATABASE 
WHERE RAEDNC = : RAEDNC 
ORDER BY RAEDNC ASC 

IBARAO 

OBTAIN A ROW IN TABLE RA USING AN APPROXIMATE KEY VALUE AND ACCESS PATH RAO. 
SELECT RAREL, RAEDN, RAEDNC, RAUSR, RASTA, RABAT 
FROM RA IN ENGINEERING_DATA_DATABASE 
WHERE (RAREL > :RAREL) 

OR ((RAREL = :RAREL) AND (RAEDN > :RAEDN)) 

OR (RAREL = :RAREL AND RAEDN = :RAEDN) 

ORDER BY RAREL ASC, RAEDN ASC 

IBARAl 

OBTAIN A ROW IN TABLE RA USING AN APPROXIMATE KEY VALUE AND ACCESS PATH RAl . 
SELECT RAREL, RAEDN, RAEDNC, RAUSR, RASTA, RADAT 
FROM RA IN ENGINEERING_DATA_DATABASE 
WHERE RAEDN >= : RAEDN 
ORDER BY RAEDN ASC 

IBARA2 

OBTAIN A ROW IN TABLE RA USING AN APPROXIMATE KEY VALUE AND ACCESS PATH RA2. 
SELECT RAREL, RAEDN, RAEDNC, RAUSR, RASTA, RADAT 
FROM RA IN ENGINEERING_DATA_DATABASE 
WHERE RAREL >= : RAREL 
ORDER BY RAREL ASC 
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IBARA3 

OBTAIN A ROW IN TABLE RA USING AN APPROXIMATE KEY VALUE AND ACCESS PATH RA3 . 
SELECT RAREL, RAEDN, RAEDNC, RAUSR, RASTA, RADAT 
FROM RA IN ENGINEERING_DATA_DATABASE 
WHERE RAUSR >= : RAUSR 
ORDER BY RAUSR ASC 

IBARA4 

OBTAIN A ROW IN TABLE RA USING AN APPROXIMATE KEY VALUE AND ACCESS PATH RA4. 
SELECT RAREL, RAEDN, RAEDNC, RAUSR, RASTA, RADAT 
FROM RA IN ENGINEERING_DATA_DATABASE 
WHERE RAEDNC >= : RAEDNC 
ORDER BY RAEDNC ASC 

IBERAO 

OBTAIN THE NEXT DUPLICATE ROW FROM TABLE RA VIA ACCESS PATH RAO. 

SAVE THE CURRENT POSITION IN TABLE RA. 

FETCH THE NEXT ROW FROM TABLE RA. 

SET : RAREL, : RAEDN, : RAEDNC, : RAUSR, : RASTA, : RADAT 


IBERAl 

OBTAIN THE NEXT DUPLICATE ROW FROM TABLE RA VIA ACCESS PATH RA1 . 
SAVE THE CURRENT POSITION IN TABLE RA. 

FETCH THE NEXT ROW FROM TABLE RA. 

SET .-RAREL, : RAEDN, : RAEDNC, : RAUSR, : RASTA, : RADAT 


IBERA2 

OBTAIN THE NEXT DUPLICATE ROW FROM TABLE RA VIA ACCESS PATH RA2 . 
SAVE THE CURRENT POSITION IN TABLE RA. 

FETCH THE NEXT ROW FROM TABLE RA. 

SET : RAREL, : RAEDN, : RAEDNC, : RAUSR, : RASTA, .-RADAT 


IBERA3 

OBTAIN THE NEXT DUPLICATE ROW FROM TABLE RA VIA ACCESS PATH RA3. 
SAVE THE CURRENT POSITION IN TABLE RA. 

FETCH THE NEXT ROW FROM TABLE RA. 

SET : RAREL, : RAEDN, : RAEDNC, : RAUSR, : RASTA, : RADAT 


IBERA4 

OBTAIN THE NEXT DUPLICATE ROW FROM TABLE RA VIA ACCESS PATH RA4. 
SAVE THE CURRENT POSITION IN TABLE RA. 

FETCH THE NEXT ROW FROM TABLE RA. 

SET : RAREL, : RAEDN, : RAEDNC, : RAUSR, : RASTA, : RADAT 
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IBFRAO 

OBTAIN THE FIRST ROW OF TABLE RA, ORDERED BY ACCESS PATH RAO. 
SELECT RAREL, RAEDN, RAEDNC, RAUSR, RASTA, RADAT 
FROM RA IN ENGINEERING_DATA_DATABASE 
ORDER BY RAREL ASC, RAEDN ASC 


IBFRAl 

OBTAIN THE FIRST ROW OF TABLE RA, ORDERED BY ACCESS PATH RA1 . 
SELECT RAREL, RAEDN, RAEDNC, RAUSR, RASTA, RADAT 
FROM RA IN ENGINEERING.DATA.DATABASE 
ORDER BY RAEDN ASC 


IBFRA2 

OBTAIN THE FIRST ROW OF TABLE RA, ORDERED BY ACCESS PATH RA2 . 
SELECT RAREL, RAEDN, RAEDNC, RAUSR, RASTA, RADAT 
FROM RA IN ENGINEERING_DATA_DATABASE 
ORDER BY RAREL ASC 


IBFRA3 

OBTAIN THE FIRST ROW OF TABLE RA, ORDERED BY ACCESS PATH RA3. 
SELECT RAREL, RAEDN, RAEDNC, RAUSR, RASTA, RADAT 
FROM RA IN ENGINEERING_DATA_DATABASE 
ORDER BY RAUSR ASC 


IBFRA4 

OBTAIN THE FIRST ROW OF TABLE RA, ORDERED BY ACCESS PATH RA4 . 
SELECT RAREL, RAEDN, RAEDNC, RAUSR, RASTA, RADAT 
FROM RA IN ENGINEERING_DATA_DATABASE 
ORDER BY RAEDNC ASC 


IBNRAO 

OBTAIN THE NEXT ROW OF TABLE 
SET : RAREL, : RAEDN, 

IBNRAl 

OBTAIN THE NEXT ROW OF TABLE 
SET : RAREL, : RAEDN, 

IBNRA2 

OBTAIN THE NEXT ROW OF TABLE 
SET : RAREL, : RAEDN, 

IBNRA3 

OBTAIN THE NEXT ROW OF TABLE 
SET : RAREL, : RAEDN, 


RA, ORDERED BY ACCESS PATH RAO. 
RAEDNC, : RAUSR, : RASTA, : RADAT 


RA, ORDERED BY ACCESS PATH RA1. 
RAEDNC, .-RAUSR, : RASTA, : RADAT 


RA, ORDERED BY ACCESS PATH RA2. 
RAEDNC, : RAUSR, : RASTA, : RADAT 


RA, ORDERED BY ACCESS PATH RA3. 
RAEDNC, : RAUSR, : RASTA, : RADAT 
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IBNRA4 

OBTAIN THE NEXT ROW OF TABLE RA. ORDERED BY ACCESS PATH RA4. 
SET :RAREL, :RAEDN, rRAEDNC, :RAUSR, : RASTA, :RADAT 


IBD2RA 

USING COSET D2RA. OBTAIN THE ROW FROM TABLE DI THAT OWNS SPECIFIC 
ROWS IN MEMBER TABLE RA 

SELECT DIEDN, DIFIL, DINAM, DISID, DIADT, DIEDT, DIUSR, DIREV, 
DISTA, DIDATC, DIDATM, DIDATR, DITTL, DITIMC, DITIMM, DITIMR 
INTO :DIEDN, :DIFIL, :DINAM, :DISID, :DIADT, :DIEDT, iDIUSR, 
:DIREV. :DISTA, rDIDATC, iDIDATM, :DIDATR, :DITTL, :DITIMC, 
:DITIMM, ;DITIMR 

FROM DI IN ENGINEERING_DATA_DATABASE 
WHERE DIEDN = iRAEDN 


IBOUIRA 

USING COSET UIRA, OBTAIN THE ROW FROM TABLE UI THAT OWNS SPECIFIC 
ROWS IN MEMBER TABLE RA 

SELECT UIUSR, UIPWD, UISTA, UIUUN, UIDPT, UICMD, UIFIN, UIMIN, 
UILNA, UITTL, UIDELS, UIDELD, UISTR, UICTY. UIPHO, UIEDT 
INTO :UIUSR, :UIPWD, :UISTA, :UIUUN, :UIDPT, :UICMD. :UIFIN, 
rUIMIN. :UILNA, :UITTL, rUIDELS, rUIDELD, :UISTR, :UICTY, 
:UIPHO, rUIEDT 

FROM UI IN ENGINEERING_DATA_DATABASE 
WHERE UIUSR = :RAUSR 


IBORPRA 

USING COSET RPRA, OBTAIN THE ROW FROM TABLE RP THAT OWNS SPECIFIC 
ROWS IN MEMBER TABLE RA 
SELECT RPREL 
INTO .-RPREL 

FROM RP IN ENGINEERING_DATA_DATABASE 
WHERE RPREL = :RAREL 


IBODIRA 

USING COSET DIRA, OBTAIN THE ROW FROM TABLE DI THAT OWNS SPECIFIC 
ROWS IN MEMBER TABLE RA 

SELECT DIEDN, DIFIL, DINAM, DISID, DIADT, DIEDT, DIUSR, DIREV, 
DISTA, DIDATC. DIDATM, DIDATR, DITTL, DITIMC, DITIMM, DITIMR 
INTO :DIEDN, :DIFIL, :DINAM, :DISID. :DIADT, :DIEDT, iDIUSR, 
:DIREV. :DISTA, :DIDATC, :DIDATM, iDIDATR, :DITTL, :DITIMC, 
:DITIMM, :DITIMR 

FROM DI IN ENGINEERING_DATA_DATABASE 
WHERE DIEDN = :RAEDN 
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IBFD2RA 

OBTAIN THE FIRST ROW FROM MEMBER TABLE RA WITHIN COSET D2RA, USING 
ACCESS PATH RA4. 

SELECT RAREL, RAEDN, RAEDNC, RAUSR, RASTA, RADAT 
FROM RA IN ENGINEERING_DATA_DATABASE 
WHERE RAEDNC = :DIEDN 
ORDER BY RAEDNC ASC 


IBFUIRA 

OBTAIN THE FIRST ROW FROM MEMBER TABLE RA WITHIN COSET UIRA, USING 
ACCESS PATH RA3. 

SELECT RAREL, RAEDN, RAEDNC. RAUSR, RASTA, RADAT 
FROM RA IN ENGINEERING_DATA_DATABASE 
WHERE RAUSR = :UIUSR 
ORDER BY RAUSR ASC 


IBFRPRA 

OBTAIN THE FIRST ROW FROM MEMBER TABLE RA WITHIN COSET RPRA, USING 
ACCESS PATH RA2 . 

SELECT RAREL, RAEDN, RAEDNC, RAUSR, RASTA, RADAT 
FROM RA IN ENGINEERING_DATA_DATABASE 
WHERE RAREL = :RPREL 
ORDER BY RAREL ASC 


IBFDIRA 

OBTAIN THE FIRST ROW FROM MEMBER TABLE RA WITHIN COSET DIRA, USING 
ACCESS PATH RA1 . 

SELECT RAREL, RAEDN, RAEDNC, RAUSR. RASTA, RADAT 
FROM RA IN ENGINEERING_DATA_DATABASE 
WHERE RAEDN = :DIEDN 
ORDER BY RAEDN ASC 


IBND2RA 


OBTAIN THE NEXT ROW 
SET :RAREL, 


FROM MEMBER TABLE RA WITHIN COSET D2RA. 
: RAEDN, : RAEDNC, : RAUSR, : RASTA. : RADAT 


IBNUIRA 


OBTAIN THE NEXT ROW 
SET : RAREL, 


FROM MEMBER TABLE RA WITHIN COSET UIRA. 
: RAEDN, : RAEDNC, : RAUSR, : RASTA, : RADAT 


IBNRPRA 


OBTAIN THE NEXT ROW 
SET :RAREL. 


FROM MEMBER TABLE RA WITHIN COSET RPRA. 
: RAEDN, : RAEDNC, : RAUSR, : RASTA, : RADAT 


IBNDIRA 


OBTAIN THE NEXT ROW 
SET : RAREL, 


FROM MEMBER TABLE RA WITHIN COSET DIRA. 
: RAEDN, : RAEDNC, : RAUSR, : RASTA, : RADAT 
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Release Procedure (RP) Routines 

The RP table contains the names of procedures used to release engineering data. 
IBSRP 

STORE A NEW ROW IN TABLE RP . 

INSERT INTO RP IN ENGINEERING_DATA_DATABASE 
SET RPREL = :RPREL 

IBMRP 

MODIFY AN EXISTING ROW IN TABLE RP . 

UDPATE RP IN ENGINEERING_DATA_DATABASE 
WHERE RPREL = : RPREL 
SET RPREL = :RPREL 

IBDRP 

DELETE AN EXISTING ROW IN TABLE RP . 

DELETE FROM RP IN ENGINEERING_DATA_DATABASE 
WHERE RPREL = :RPREL 

IBORPO 

OBTAIN A ROW IN TABLE RP VIA ACCESS PATH RPO . 

SELECT RPREL 

FROM RP IN ENGINEERING_DATA_DATABASE 
WHERE RPREL = : RPREL 
ORDER BY RPREL ASC 

IBARPO 

OBTAIN A ROW IN TABLE RP USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH RPO. 

SELECT RPREL 

FROM RP IN ENGINEERING_DATA_DATABASE 
WHERE RPREL >= : RPREL 
ORDER BY RPREL ASC 


IBFRPO 

OBTAIN THE FIRST ROW OF TABLE RP, ORDERED BY ACCESS PATH RPO. 
SELECT RPREL 

FROM RP IN ENGINEERING_DATA_DATABASE 
ORDER BY RPREL ASC 


IBNRPO 

OBTAIN THE NEXT ROW OF TABLE RP, ORDERED BY ACCESS PATH RPO. 
SET : RPREL 
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Review Responsibility (RR) Routines 

The RR table defines the responsibility of the reviewers involved in a given release 

procedure and the order in which they review the data. 

IBSRR 

STORE A NEW ROW IN TABLE RR. 

INSERT INTO RR IN ENGINEERING_DATA_DATABASE 
SET RRREL = :RRREL, 

RRUSR = :RRUSR. 

RRTTL = :RRTTL, 

RRSEQ = :RRSEQ, 

RRPRI = :RRPRI 

IBMRR 

MODIFY AN EXISTING ROW IN TABLE RR. 

UDPATE RR IN ENGINEERING_DATA_DATABASE 
WHERE RRREL = : RRREL AND 
RRUSR = : RRUSR AND 
RRTTL = : RRTTL 
SET RRREL = : RRREL, 

RRUSR = : RRUSR, 

RRTTL = : RRTTL, 

RRSEQ = : RRSEQ, 

RRPRI = :RRPRI 


IBDRR 

DELETE AN EXISTING ROW IN TABLE RR . 

DELETE FROM RR IN ENGINEERING_DATA_DATABASE 
WHERE RRREL = : RRREL AND 
RRUSR = .-RRUSR AND 
RRTTL = : RRTTL 


IBORRO 

OBTAIN A ROW IN TABLE RR VIA ACCESS PATH RRO . 

SELECT RRREL, RRUSR, RRTTL, RRSEQ, RRPRI 
FROM RR IN ENGINEERING_DATA_DATABASE 
WHERE RRREL = : RRREL AND 
RRUSR = : RRUSR AND 
RRTTL = : RRTTL 

ORDER BY RRREL ASC, RRUSR ASC, RRTTL ASC 


IBORRl 

OBTAIN A ROW IN TABLE RR VIA ACCESS PATH RR1. 

SELECT RRREL, RRUSR, RRTTL, RRSEQ, RRPRI 
FROM RR IN ENGINEERING_DATA_DATABASE 
WHERE RRREL = : RRREL 
ORDER BY RRREL ASC, RRSEQ ASC 
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IBORR2 

OBTAIN A ROW IN TABLE RR VIA ACCESS PATH RR2. 

SELECT RRREL, RRUSR, RRTTL, RRSEQ, RRPRI 
FROM RR IN ENGINEERING_DATA_DATABASE 
WHERE RRREL = : RRREL AND 
RRSEQ = : RRSEQ 

ORDER BY RRREL ASC, RRSEQ ASC, RRTTL ASC 

IBORR3 

OBTAIN A ROW IN TABLE RR VIA ACCESS PATH RR3. 

SELECT RRREL, RRUSR, RRTTL, RRSEQ, RRPRI 
FROM RR IN ENGINEERING_DATA_DATABASE 
WHERE RRUSR = : RRUSR 
ORDER BY RRUSR ASC 

IBARRO 

OBTAIN A ROW IN TABLE RR USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH RRO. 

SELECT RRREL, RRUSR, RRTTL, RRSEQ, RRPRI 
FROM RR IN ENGINEERING_DATA_DATABASE 
WHERE (RRREL > :RRREL) 

OR ((RRREL = :RRREL) AND (RRUSR > :RRUSR)) 

OR ((RRREL = :RRREL AND RRUSR = :RRUSR) AND (RRTTL > :RRTTL)) 
OR (RRREL = ; RRREL AND RRUSR = : RRUSR AND RRTTL = : RRTTL) 
ORDER BY RRREL ASC, RRUSR ASC, RRTTL ASC 


IBARRl 

OBTAIN A ROW IN TABLE RR USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH RRl. 

SELECT RRREL, RRUSR, RRTTL, RRSEQ, RRPRI 
FROM RR IN ENGINEERING_DATA_DATABASE 
WHERE RRREL >= : RRREL 
ORDER BY RRREL ASC, RRSEQ ASC 


IBARR2 

OBTAIN A ROW IN TABLE RR USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH RR2. 

SELECT RRREL, RRUSR, RRTTL, RRSEQ, RRPRI 
FROM RR IN ENGINEERING_DATA_DATABASE 
WHERE (RRREL > : RRREL) 

OR ((RRREL = : RRREL) AND (RRSEQ > : RRSEQ)) 

OR (RRREL = : RRREL AND RRSEQ = : RRSEQ) 

ORDER BY RRREL ASC, RRSEQ ASC, RRTTL ASC 
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IBARR3 

OBTAIN A ROW IN TABLE RR USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH RR3. 

SELECT RRREL, RRUSR, RRTTL, RRSEQ, RRPRI 
FROM RR IN ENGINEERING_DATA_DATABASE 
WHERE RRUSR >= : RRUSR 
ORDER BY RRUSR ASC 


IBERRl 

OBTAIN THE NEXT DUPLICATE ROW FROM TABLE RR VIA ACCESS PATH RR1. 
SAVE THE CURRENT POSITION IN TABLE RR. 

FETCH THE NEXT ROW FROM TABLE RR . 

SET :RRREL, :RRUSR, :RRTTL, :RRSEQ, :RRPRI 


IBERR2 

OBTAIN THE NEXT DUPLICATE ROW FROM TABLE RR VIA ACCESS PATH RR2 . 
SAVE THE CURRENT POSITION IN TABLE RR. 

FETCH THE NEXT ROW FROM TABLE RR. 

SET :RRREL, iRRUSR, :RRTTL, :RRSEQ, :RRPRI 


IBERR3 

OBTAIN THE NEXT DUPLICATE ROW FROM TABLE RR VIA ACCESS PATH RR3. 
SAVE THE CURRENT POSITION IN TABLE RR. 

FETCH THE NEXT ROW FROM TABLE RR. 

SET : RRREL, : RRUSR, : RRTTL, : RRSEQ, : RRPRI 


IBFRRO 

OBTAIN THE FIRST ROW OF TABLE RR, ORDERED BY ACCESS PATH RRO . 
SELECT RRREL, RRUSR, RRTTL, RRSEQ, RRPRI 
FROM RR IN ENGINEERING_DATA_DATABASE 
ORDER BY RRREL ASC, RRUSR ASC, RRTTL ASC 


IBFRRl 

OBTAIN THE FIRST ROW OF TABLE RR, ORDERED BY ACCESS PATH RRl. 
SELECT RRREL, RRUSR, RRTTL, RRSEQ, RRPRI 
FROM RR IN ENGINEERING_DATA_DATABASE 
ORDER BY RRREL ASC, RRSEQ ASC 


IBFRR2 

OBTAIN THE FIRST ROW OF TABLE RR, ORDERED BY ACCESS PATH RR2 . 
SELECT RRREL, RRUSR, RRTTL, RRSEQ, RRPRI 
FROM RR IN ENGINEERING_DATA_DATABASE 
ORDER BY RRREL ASC, RRSEQ ASC, RRTTL ASC 
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IBFRR3 

OBTAIN THE FIRST ROW OF TABLE RR, ORDERED BY ACCESS PATH RR3. 
SELECT RRREL, RRUSR, RRTTL, RRSEQ, RRPRI 
FROM RR IN ENGINEER I NG_DATA_DAT ABASE 
ORDER BY RRUSR ASC 


IBNRRO 


OBTAIN THE NEXT ROW OF TABLE RR, ORDERED BY ACCESS PATH RRO. 
SET :RRREL, :RRUSR, :RRTTL, :RRSEQ, :RRPRI 

IBNRRl 

OBTAIN THE NEXT ROW OF TABLE RR, ORDERED BY ACCESS PATH RRl. 
SET : RRREL, : RRUSR, : RRTTL, : RRSEQ, : RRPRI 


IBNRR2 

OBTAIN THE NEXT ROW OF TABLE RR, ORDERED BY ACCESS PATH RR2 . 
SET : RRREL, : RRUSR, : RRTTL, : RRSEQ, : RRPRI 

IBNRR3 

OBTAIN THE NEXT ROW OF TABLE RR, ORDERED BY ACCESS PATH RR3 . 
SET : RRREL, : RRUSR, : RRTTL, : RRSEQ, : RRPRI 


IBOUIRR 

USING COSET UIRR, OBTAIN THE ROW FROM TABLE UI THAT OWNS SPECIFIC 
ROWS IN MEMBER TABLE RR 

SELECT UIUSR, UIPWD, UISTA, UIUUN, UIDPT, UICMD, UIFIN, UIMIN, 
UILNA, UITTL, UIDELS, UIDELD, UISTR, UICTY, UIPHO, UIEDT 
INTO :UIUSR, :UIPWD, :UISTA, :UIUUN, :UIDPT, :UICMD, :UIFIN, 
:UIMIN, :UILNA, :UITTL, rUIDELS, lUIDELD, rUISTR, rUICTY, 
:UIPHO, :UIEDT 

FROM UI IN ENGINEERING_DATA_DATABASE 
WHERE UIUSR = : RRUSR 


IBORPRR 

USING COSET RPRR, OBTAIN THE ROW FROM TABLE RP THAT OWNS SPECIFIC 
ROWS IN MEMBER TABLE RR 
SELECT RPREL 
INTO : RPREL 

FROM RP IN ENGINEERING_DATA_DATABASE 
WHERE RPREL = :RRREL 
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IBFUIRR 

OBTAIN THE FIRST ROW FROM MEMBER TABLE RR WITHIN COSET UIRR, USING 
ACCESS PATH RR3. 

SELECT RRREL, RRUSR, RRTTL, RRSEQ, RRPRI 
FROM RR IN ENGINEERING_DATA_DATABASE 
WHERE RRUSR = rUIUSR 
ORDER BY RRUSR ASC 

IBFRPRR 

OBTAIN THE FIRST ROW FROM MEMBER TABLE RR WITHIN COSET RPRR, USING 
ACCESS PATH RR1. 

SELECT RRREL, RRUSR, RRTTL, RRSEQ, RRPRI 
FROM RR IN ENGINEERING_DATA_DATABASE 
WHERE RRREL = :RPREL 
ORDER BY RRREL ASC, RRSEQ ASC 

IBNUIRR 

OBTAIN THE NEXT ROW FROM MEMBER TABLE RR WITHIN COSET UIRR. 

SET : RRREL, : RRUSR, : RRTTL, : RRSEQ, : RRPRI 

IBNRPRR 

OBTAIN THE NEXT ROW FROM MEMBER TABLE RR WITHIN COSET RPRR. 

SET : RRREL, : RRUSR, : RRTTL, : RRSEQ, : RRPRI 
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Release Signature (RS) Routines 

The RS table contains the release signatures and stamps made by a reviewer of 
engineering data. 

IBSRS 

STORE A NEW ROW IN TABLE RS. 

INSERT INTO RS IN ENGINEERING_DATA_DATABASE 
SET RSEDN = :RSEDN, 

RSREL = :RSREL. 

RSUSR = :RSUSR, 

RSTTL = :RSTTL, 

RSDAT = :RSDAT, 

RSSTP = :RSSTP 

IBMRS 

MODIFY AN EXISTING ROW IN TABLE RS. 

UDPATE RS IN ENGINEERING_DATA_DAT ABASE 
WHERE RSEDN = : RSEDN AND 
RSREL = : RSREL AND 
RSUSR = : RSUSR AND 
RSTTL = : RSTTL 
SET RSEDN = :RSEDN, 

RSREL = : RSREL, 

RSUSR = : RSUSR, 

RSTTL = : RSTTL, 

RSDAT = : RSDAT, 

RSSTP = : RSSTP 

IBDRS 

DELETE AN EXISTING ROW IN TABLE RS. 

DELETE FROM RS IN ENGINEERING_DATA_DATABASE 
WHERE RSEDN = : RSEDN AND 
RSREL = -.RSREL AND 
RSUSR = : RSUSR AND 
RSTTL = : RSTTL 
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IBORSO 

OBTAIN A ROW IN TABLE RS VIA ACCESS PATH RSO . 

SELECT RSEDN, RSREL, RSUSR, RSTTL, RSDAT, RSSTP 
FROM RS IN ENGINEERING_DATA_DATABASE 
WHERE RSEDN = : RSEDN AND 
RSREL = ; RSREL AND 
RSUSR = : RSUSR AND 
RSTTL = : RSTTL 

ORDER BY RSEDN ASC, RSREL ASC, RSUSR ASC, RSTTL ASC 

IBORSl 

OBTAIN A ROW IN TABLE RS VIA ACCESS PATH RSI. 

SELECT RSEDN, RSREL, RSUSR, RSTTL, RSDAT, RSSTP 
FROM RS IN ENGINEER I NG_DATA_DATABASE 
WHERE RSREL = : RSREL AND 
RSEDN = -.RSEDN 

ORDER BY RSREL ASC, RSEDN ASC, RSDAT ASC 

IBORS2 

OBTAIN A ROW IN TABLE RS VIA ACCESS PATH RS2 . 

SELECT RSEDN, RSREL, RSUSR, RSTTL, RSDAT, RSSTP 
FROM RS IN ENGINEERING_DATA_DATABASE 
WHERE RSUSR = : RSUSR 
ORDER BY RSUSR ASC 

IBARSO 

OBTAIN A ROW IN TABLE RS USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH RSO. 

SELECT RSEDN, RSREL, RSUSR, RSTTL, RSDAT, RSSTP 
FROM RS IN ENGINEERING_DATA_DATABASE 
WHERE (RSEDN > : RSEDN) 

OR ((RSEDN = :RSEDN) AND (RSREL > :RSREL)) 

OR ((RSEDN = :RSEDN AND RSREL = :RSREL) AND (RSUSR > -.RSUSR)) 

OR ((RSEDN = :RSEDN AND RSREL = :RSREL AND RSUSR = :RSUSR) AND 
(RSTTL > : RSTTL)) 

OR (RSEDN = :RSEDN AND RSREL = :RSREL AND RSUSR = :RSUSR AND 
RSTTL = -.RSTTL) 

ORDER BY RSEDN ASC, RSREL ASC, RSUSR ASC, RSTTL ASC 
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IBARSl 

OBTAIN A ROW IN TABLE RS USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH RSI. 

SELECT RSEDN, RSREL, RSUSR, RSTTL, RSDAT, RSSTP 
FROM RS IN ENGINEERING_DATA_DATABASE 
WHERE (RSREL > :RSREL) 

OR ((RSREL = :RSREL) AND (RSEDN > :RSEDN)) 

OR (RSREL = ;RSREL AND RSEDN = :RSEDN) 

ORDER BY RSREL ASC, RSEDN ASC, RSDAT ASC 


IBARS2 

OBTAIN A ROW IN TABLE RS USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH RS2. 

SELECT RSEDN. RSREL, RSUSR, RSTTL. RSDAT, RSSTP 
FROM RS IN ENGINEERING_DATA_DATABASE 
WHERE RSUSR >= : RSUSR 
ORDER BY RSUSR ASC 


IBERSl 

OBTAIN THE NEXT DUPLICATE ROW FROM TABLE RS VIA ACCESS PATH RSI. 
SAVE THE CURRENT POSITION IN TABLE RS. 

FETCH THE NEXT ROW FROM TABLE RS . 

SET : RSEDN, : RSREL, : RSUSR, : RSTTL, : RSDAT, : RSSTP 


IBERS2 

OBTAIN THE NEXT DUPLICATE ROW FROM TABLE RS VIA ACCESS PATH RS2. 
SAVE THE CURRENT POSITION IN TABLE RS. 

FETCH THE NEXT ROW FROM TABLE RS. 

SET : RSEDN, : RSREL, : RSUSR, : RSTTL, : RSDAT, : RSSTP 

IBFRSO 

OBTAIN THE FIRST ROW OF TABLE RS, ORDERED BY ACCESS PATH RSO . 
SELECT RSEDN, RSREL, RSUSR, RSTTL, RSDAT. RSSTP 
FROM RS IN ENGINEERING_DATA_DATABASE 
ORDER BY RSEDN ASC, RSREL ASC, RSUSR ASC, RSTTL ASC 

IBFRSl 

OBTAIN THE FIRST ROW OF TABLE RS, ORDERED BY ACCESS PATH RSI. 
SELECT RSEDN, RSREL, RSUSR, RSTTL, RSDAT, RSSTP 
FROM RS IN ENGINEERING_DATA_DATABASE 
ORDER BY RSREL ASC, RSEDN ASC. RSDAT ASC 

IBFRS2 

OBTAIN THE FIRST ROW OF TABLE RS, ORDERED BY ACCESS PATH RS2 . 
SELECT RSEDN, RSREL, RSUSR, RSTTL, RSDAT, RSSTP 
FROM RS IN ENGINEERING_DATA_DATABASE 
ORDER BY RSUSR ASC 
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IBNRSO 


OBTAIN THE NEXT ROW OF TABLE RS, ORDERED BY ACCESS PATH RSO 
SET :RSEDN, iRSREL, :RSUSR, :RSTTL, :RSDAT, iRSSTP 


IBNRSl 


OBTAIN THE NEXT ROW OF TABLE RS, ORDERED BY ACCESS PATH RSI 
SET :RSEDN. :RSREL, :RSUSR, :RSTTL, :RSDAT, :RSSTP 


IBNRS2 


OBTAIN THE NEXT ROW OF TABLE RS, ORDERED BY ACCESS PATH RS2 , 
SET :RSEDN, :RSREL, :RSUSR, :RSTTL, :RSDAT, :RSSTP 


IBOUIRS 

USING COSET UIRS, OBTAIN THE ROW FROM TABLE UI THAT OWNS SPECIFIC 
ROWS IN MEMBER TABLE RS 

SELECT UIUSR, UIPWD, UISTA, UIUUN, UIDPT, UICMD, UIFIN, UIMIN, 
UILNA, UITTL, UIDELS, UIDELD, UISTR, UICTY, UIPHO, UIEDT 
INTO :UIUSR, rUIPWD, :UISTA, rUIUUN, lUIDPT, :UICMD, rUIFIN, 
:UIMIN, :UILNA, :UITTL, :UIDELS, rUIDELD, rUISTR, rUICTY, 
:UIPHO, :UIEDT 

FROM UI IN ENGINEERING_DATA_DATABASE 
WHERE UIUSR = :RSUSR 


IBORARS 

USING COSET RARS, OBTAIN THE ROW FROM TABLE RA THAT OWNS SPECIFIC 
ROWS IN MEMBER TABLE RS 

SELECT RAREL, RAEDN, RAEDNC, RAUSR, RASTA. RADAT 
INTO ; RAREL, : RAEDN, -.RAEDNC, -.RAUSR, -.RASTA, -.RADAT 
FROM RA IN ENGINEERING_DATA_DATABASE 
WHERE RAREL = :RSREL AND 
RAEDN = :RSEDN 


IBFUIRS 

OBTAIN THE FIRST ROW FROM MEMBER TABLE RS WITHIN COSET UIRS, USING 
ACCESS PATH RS2. 

SELECT RSEDN, RSREL, RSUSR, RSTTL, RSDAT, RSSTP 
FROM RS IN ENGINEERING_DATA_DATABASE 
WHERE RSUSR = : UIUSR 
ORDER BY RSUSR ASC 


IBFRARS 

OBTAIN THE FIRST ROW FROM MEMBER TABLE RS WITHIN COSET RARS, USING 
ACCESS PATH RSI. 

SELECT RSEDN, RSREL, RSUSR, RSTTL, RSDAT, RSSTP 
FROM RS IN ENGINEERING_DATA_DATABASE 
WHERE RSREL = : RAREL AND 
RSEDN = : RAEDN 

ORDER BY RSREL ASC, RSEDN ASC, RSDAT ASC 
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IBNUIRS 

OBTAIN THE NEXT ROW FROM MEMBER TABLE RS WITHIN COSET UIRS. 
SET :RSEDN, :RSREL, :RSUSR, :RSTTL, :RSDAT. :RSSTP 


IBNRARS 

OBTAIN THE NEXT ROW FROM MEMBER TABLE RS WITHIN COSET RARS. 
SET :RSEDN, iRSREL, :RSUSR, :RSTTL, :RSDAT, :RSSTP 
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Release Transfers (RT) Routines 

The RT table defines which data transfers are usable for releasing engineering data. 
IBSRT 

STORE A NEW ROW IN TABLE RT. 

INSERT INTO RT IN ENGINEERING_DATA_DATABASE 
SET RTADT1 = rRTADTl, 

RTADT2 = :RTADT2 

IBMRT 

MODIFY AN EXISTING ROW IN TABLE RT . 

UDPATE RT IN ENGINEERING_DATA_DATABASE 
WHERE RTADT1 = :RTADT1 AND 
RTADT2 = :RTADT2 
SET RTADT1 = :RTADT1, 

RTADT2 = :RTADT2 


IBDRT 

DELETE AN EXISTING ROW IN TABLE RT. 

DELETE FROM RT IN ENGINEERING_DATA_DATABASE 
WHERE RTADT1 = :RTADT1 AND 
RTADT2 = :RTADT2 


IBORTO 

OBTAIN A ROW IN TABLE RT VIA ACCESS PATH RTO . 
SELECT RTADTl, RTADT2 
FROM RT IN ENGINEERING_DATA_DATABASE 
WHERE RTADTl = -.RTADTl AND 
RTADT2 = :RTADT2 
ORDER BY RTADTl ASC. RTADT2 ASC 
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IBARTO 

OBTAIN A ROW IN TABLE RT USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH RTO. 

SELECT RTADT1, RTADT2 

FROM RT IN ENGINEERING_DATA_DATABASE 

WHERE (RTADT1 > :RTADT1) 

OR ((RTADT1 = :RTADT1) AND (RTADT2 > :RTADT2)) 

OR (RTADTl = :RTADT1 AND RTADT2 = :RTADT2) 

ORDER BY RTADTl ASC, RTADT2 ASC 


IBFRTO 

OBTAIN THE FIRST ROW OF TABLE RT, ORDERED BY ACCESS PATH RTO. 
SELECT RTADTl, RTADT2 
FROM RT IN ENGINEERING_DATA_DATABASE 
ORDER BY RTADTl ASC, RTADT2 ASC 


IBNRTO 

OBTAIN THE NEXT ROW OF TABLE RT, ORDERED BY ACCESS PATH RTO. 
SET .-RTADTl, :RTADT2 


\ 
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Releasers (RU) Routines 

The RU table defines the releasers involved in a release procedure. 
IBSRU 

STORE A NEW ROW IN TABLE RU. 

INSERT INTO RU IN ENGINEER I NG_DATA_DAT ABASE 
SET RUREL = :RUREL. 

RUUSR = :RUUSR 


IBMRU 

MODIFY AN EXISTING ROW IN TABLE RU . 

UDPATE RU IN ENGINEERING_DATA_DAT ABASE 
WHERE RUREL = : RUREL AND 
RUUSR = : RUUSR 
SET RUREL = :RUREL, 

RUUSR = :RUUSR 


IBDRU 

DELETE AN EXISTING ROW IN TABLE RU . 

DELETE FROM RU IN ENGINEERING_DATA_DAT ABASE 
WHERE RUREL = : RUREL AND 
RUUSR = : RUUSR 


IBORUO 

OBTAIN A ROW IN TABLE RU VIA ACCESS PATH RUO. 
SELECT RUREL, RUUSR 
FROM RU IN ENGINEERING_DATA_DATABASE 
WHERE RUREL = -.RUREL AND 
RUUSR = : RUUSR 

ORDER BY RUREL ASC. RUUSR ASC 


B-128 EDL Customization for NOS 


Revision A 



Releasers (RU) Routines 


IBORUl 

OBTAIN A ROW IN TABLE RU VIA ACCESS PATH RU1. 

SELECT RUREL.-RUUSR 

FROM RU IN ENGINEERING_DATA_DATABASE 

WHERE RUREL = :RUREL 

ORDER BY RUREL ASC 

IBORU2 

OBTAIN A ROW IN TABLE RU VIA ACCESS PATH RU2. 

SELECT RUREL, RUUSR 

FROM RU IN ENGINEERING_DATA_DATABASE 

WHERE RUUSR = : RUUSR 

ORDER BY RUUSR ASC 

IBARUO 

OBTAIN A ROW IN TABLE RU USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH RUO. 

SELECT RUREL, RUUSR 

FROM RU IN ENGINEERING_DATA_DATABASE 

WHERE (RUREL > :RUREL) 

OR ((RUREL = :RUREL) AND (RUUSR > :RUUSR)) 

OR (RUREL = :RUREL AND RUUSR = :RUUSR) 

ORDER BY RUREL ASC, RUUSR ASC 


IBARUl 

OBTAIN A ROW IN TABLE RU USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH RU1. 

SELECT RUREL, RUUSR 

FROM RU IN ENGINEERING_DATA_DATABASE 

WHERE RUREL >= : RUREL 

ORDER BY RUREL ASC 


IBARU2 

OBTAIN A ROW IN TABLE RU USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH RU2. 

SELECT RUREL, RUUSR 

FROM RU IN ENGINEERING_DATA_DATABASE 

WHERE RUUSR >= :RUUSR 

ORDER BY RUUSR ASC 


IBERUl 

OBTAIN THE NEXT DUPLICATE ROW FROM TABLE RU VIA ACCESS PATH RU1. 
SAVE THE CURRENT POSITION IN TABLE RU . 

FETCH THE NEXT ROW FROM TABLE RU . 

SET :RUREL, :RUUSR 


Revision A 


Information Base Routines B-129 



Releasers (RU) Routines 


IBERU2 

OBTAIN THE NEXT DUPLICATE ROW FROM TABLE RU VIA ACCESS PATH RU2. 
SAVE THE CURRENT POSITION IN TABLE RU. 

FETCH THE NEXT ROW FROM TABLE RU . 

SET :RUREL. :RUUSR 

IBFRUO 

OBTAIN THE FIRST ROW OF TABLE RU, ORDERED BY ACCESS PATH RUO . 
SELECT RUREL, RUUSR 
FROM RU IN ENGINEERING.DATA.DATABASE 
ORDER BY RUREL ASC, RUUSR ASC 

IBFRUl 

OBTAIN THE FIRST ROW OF TABLE RU, ORDERED BY ACCESS PATH RU1. 
SELECT RUREL, RUUSR 
FROM RU IN ENGINEERING_DATA_DATABASE 
ORDER BY RUREL ASC 

IBFRU2 

OBTAIN THE FIRST ROW OF TABLE RU, ORDERED BY ACCESS PATH RU2 . 
SELECT RUREL, RUUSR 
FROM RU IN ENGINEER I NG_DATA_DATABASE 
ORDER BY RUUSR ASC 

IBNRUO 

OBTAIN THE NEXT ROW OF TABLE RU, ORDERED BY ACCESS PATH RUO. 

SET : RUREL, : RUUSR 

IBNRUl 

OBTAIN THE NEXT ROW OF TABLE RU, ORDERED BY ACCESS PATH RU1. 

SET : RUREL, : RUUSR 

IBNRU2 

OBTAIN THE NEXT ROW OF TABLE RU, ORDERED BY ACCESS PATH RU2 . 

SET : RUREL, : RUUSR 


IBOUIRU 

USING COSET UIRU, OBTAIN THE ROW FROM TABLE UI THAT OWNS SPECIFIC 
ROWS IN MEMBER TABLE RU 

SELECT UIUSR, UIPWD, UISTA, UIUUN, UIDPT, UICMD, UIFIN, UIMIN, 
UILNA, UITTL, UIDELS, UIDELD, UISTR, UICTY, UIPHO, UIEDT 
INTO :UIUSR, :UIPWD, :UISTA, :UIUUN, :UIDPT, lUICMD, lUIFIN, 
:UIMIN, :UILNA, :UITTL, rUIDELS, :UIDELD, :UISTR, :UICTY, 
:UIPHO, lUIEDT 

FROM UI IN ENGINEERING_DATA_DATABASE 
WHERE UIUSR = :RUUSR 
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IBORPRU 

USING COSET RPRU, OBTAIN THE ROW FROM TABLE RP THAT OWNS SPECIFIC 
ROWS IN MEMBER TABLE RU 
SELECT RPREL 
INTO : RPREL 

FROM RP IN ENGINEERING_DATA_DATABASE 
WHERE RPREL = :RUREL 


IBFUIRU 

OBTAIN THE FIRST ROW FROM MEMBER TABLE RU WITHIN COSET UIRU, USING 
ACCESS PATH RU2. 

SELECT RUREL, RUUSR 

FROM RU IN ENGINEERING_DATA_DATABASE 

WHERE RUUSR = :UIUSR 

ORDER BY RUUSR ASC 


IBFRPRU 

OBTAIN THE FIRST ROW FROM MEMBER TABLE RU WITHIN COSET RPRU, USING 
ACCESS PATH RU1 . 

SELECT RUREL, RUUSR 

FROM RU IN ENGINEER I NG_DATA_DATABASE 

WHERE RUREL = : RPREL 

ORDER BY RUREL ASC 


IBNUIRU 

OBTAIN THE NEXT ROW FROM MEMBER TABLE RU WITHIN COSET UIRU. 
SET : RUREL, : RUUSR 


IBNRPRU 

OBTAIN THE NEXT ROW FROM MEMBER TABLE RU WITHIN COSET RPRU. 
SET : RUREL, : RUUSR 
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Task Command (TC) Routines 

The TC table contains the commands that start the tasks defined in TI. 
IBSTC 

STORE A NEW ROW IN TABLE TC. 

INSERT INTO TC IN MENU_DATABASE 
SET TCCMD = :TCCMD, 

TCTNA = iTCTNA 

IBMTC 

MODIFY AN EXISTING ROW IN TABLE TC . 

UDPATE TC IN MENU_DATABASE 
WHERE TCCMD = : TCCMD 
SET TCCMD = : TCCMD, 

TCTNA = : TCTNA 

IBDTC 

DELETE AN EXISTING ROW IN TABLE TC . 

DELETE FROM TC IN MENU_DATABASE 
WHERE TCCMD = : TCCMD 

IBOTCO 

OBTAIN A ROW IN TABLE TC VIA ACCESS PATH TCO . 

SELECT TCCMD, TCTNA 
FROM TC IN ME NU_DAT ABASE 
WHERE TCCMD = : TCCMD 
ORDER BY TCCMD ASC 

IBOTCl 

OBTAIN A ROW IN TABLE TC VIA ACCESS PATH TCI. 

SELECT TCCMD, TCTNA 
FROM TC IN MENU_DATABASE 
WHERE TCTNA = : TCTNA 
ORDER BY TCTNA ASC 

IBATCO 

OBTAIN A ROW IN TABLE TC USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH TCO. 

SELECT TCCMD, TCTNA 
FROM TC IN MENU.DAT ABASE 
WHERE TCCMD >= -.TCCMD 
ORDER BY TCCMD ASC 
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IBATCl 

OBTAIN A ROW IN TABLE TC USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH TCI. 

SELECT TCCMD, TCTNA 
FROM TC IN MENU.DATABASE 
WHERE TCTNA >= : TCTNA 
ORDER BY TCTNA ASC 


IBETCl 

OBTAIN THE NEXT DUPLICATE ROW FROM TABLE TC VIA ACCESS PATH TCI. 
SAVE THE CURRENT POSITION IN TABLE TC. 

FETCH THE NEXT ROW FROM TABLE TC. 

SET : TCCMD, : TCTNA 


IBFTCO 

OBTAIN THE FIRST ROW OF TABLE TC, ORDERED BY ACCESS PATH TCO. 
SELECT TCCMD, TCTNA 
FROM TC IN MENU.DAT ABASE 
ORDER BY TCCMD ASC 


IBFTCl 

OBTAIN THE FIRST ROW OF TABLE TC, ORDERED BY ACCESS PATH TCI. 
SELECT TCCMD, TCTNA 
FROM TC IN MENU.DAT ABASE 
ORDER BY TCTNA ASC 


IBNTCO 

OBTAIN THE NEXT ROW OF TABLE TC, ORDERED BY ACCESS PATH TCO. 
SET : TCCMD, : TCTNA 


IBNTCl 

OBTAIN THE NEXT ROW OF TABLE TC, ORDERED BY ACCESS PATH TCI. 
SET : TCCMD, : TCTNA 
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IBOTITC 

USING COSET TITC, OBTAIN THE ROW FROM TABLE TI THAT OWNS SPECIFIC 
ROWS IN MEMBER TABLE TC 

SELECT TITNA, TISEC. TITYP, TIDSC 
INTO :TITNA, :TISEC, :TITYP, :TIDSC 
FROM TI IN MENU.DATABASE 
WHERE TITNA = :TCTNA 


IBFTITC 

OBTAIN THE FIRST ROW FROM MEMBER TABLE TC WITHIN COSET TITC, USING 
ACCESS PATH TCI. 

SELECT TCCMD. TCTNA 
FROM TC IN MENU.DATABASE 
WHERE TCTNA = : TITNA 
ORDER BY TCTNA ASC 

IBNTITC 

OBTAIN THE NEXT ROW FROM MEMBER TABLE TC WITHIN COSET TITC. 

SET : TCCMD, : TCTNA 
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Task Information (TI) Routines 

The TI record contains the headers for EDL tasks. 

IBSTI 

STORE A NEW ROW IN TABLE TI . 

INSERT INTO TI IN MENU_DATABASE 
SET TITNA = :TITNA, 

TISEC = :TISEC. 

TITYP = :TITYP, 

TIDSC = :TIDSC 

IBMTI 

MODIFY AN EXISTING ROW IN TABLE TI . 

UDPATE TI IN MENU.DATABASE 
WHERE TITNA = : TITNA 
SET TITNA = : TITNA, 

TISEC = :TISEC, 

TITYP = : TITYP, 

TIDSC = : TIDSC 

IBDTI 

DELETE AN EXISTING ROW IN TABLE TI . 

DELETE FROM TI IN MENU.DATABASE 
WHERE TITNA = : TITNA 

IBOTIO 

OBTAIN A ROW IN TABLE TI VIA ACCESS PATH TIO. 

SELECT TITNA, TISEC, TITYP, TIDSC 
FROM TI IN MENU.DATABASE 
WHERE TITNA = : TITNA 
ORDER BY TITNA ASC 

IBOTIl 

OBTAIN A ROW IN TABLE TI VIA ACCESS PATH Til. 

SELECT TITNA, TISEC. TITYP. TIDSC 
FROM TI IN MENU.DATABASE 
WHERE TISEC = :TISEC 
ORDER BY TISEC ASC 

IBATIO 

OBTAIN A ROW IN TABLE TI USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH TIO. 

SELECT TITNA, TISEC, TITYP, TIDSC 
FROM TI IN MENU_DATABASE 
WHERE TITNA >= : TITNA 
ORDER BY TITNA ASC 
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IBATIl 

OBTAIN A ROW IN TABLE TI USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH Til. 

SELECT TITNA, TISEC, TITYP, TIDSC 
FROM TI IN MENU.DATABASE 
WHERE TISEC >= :TISEC 
ORDER BY TISEC ASC 


IBETIl 

OBTAIN THE NEXT DUPLICATE ROW FROM TABLE TI VIA ACCESS PATH Til. 
SAVE THE CURRENT POSITION IN TABLE TI . 

FETCH THE NEXT ROW FROM TABLE TI . 

SET :TITNA, :TISEC, :TITYP, :TIDSC 

IBFTIO 

OBTAIN THE FIRST ROW OF TABLE TI , ORDERED BY ACCESS PATH TIO. 
SELECT TITNA. TISEC, TITYP, TIDSC 
FROM TI IN MENU.DATABASE 
ORDER BY TITNA ASC 

IBFTIl 

OBTAIN THE FIRST ROW OF TABLE TI , ORDERED BY ACCESS PATH Til. 
SELECT TITNA, TISEC, TITYP, TIDSC 
FROM TI IN MENU_DATABASE 
ORDER BY TISEC ASC 

IBNTIO 

OBTAIN THE NEXT ROW OF TABLE TI , ORDERED BY ACCESS PATH TIO. 

SET :TITNA, :TISEC, :TITYP, :TIDSC 

IBNTIl 

OBTAIN THE NEXT ROW OF TABLE TI , ORDERED BY ACCESS PATH Til. 

SET : TITNA. : TISEC, : TITYP, :TIDSC 
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Task Menu (TM) Routines 

The TM table contains the task menu lines 

IBSTM 

STORE A NEW ROW IN TABLE TM. 

INSERT INTO TM IN MENU.DAT ABASE 
SET TMMNA = :TMMNA, 

TMMLN » :TMMLN. 

TMTXT = :TMTXT. 

TMTNA = :TMTNA 

IBMTM 

MODIFY AN EXISTING ROW IN TABLE TM. 


UDPATE TM IN 

MENU.DATABASE 

WHERE TMMNA 

= : TMMNA AND 

TMMLN 

= : TMMLN 

SET TMMNA = 

: TMMNA, 

TMMLN = 

: TMMLN. 

TMTXT = 

: TMTXT, 

TMTNA = 

: TMTNA 


IBDTM 

DELETE AN EXISTING ROW IN TABLE TM. 

DELETE FROM TM IN MENU_DATABASE 
WHERE TMMNA = : TMMNA AND 
TMMLN = : TMMLN 


IBOTMO 

OBTAIN A ROW IN TABLE TM VIA ACCESS PATH TMO. 
SELECT TMMNA. TMMLN, TMTXT, TMTNA 
FROM TM IN MENU_DATABASE 
WHERE TMMNA = : TMMNA AND 
TMMLN = -.TMMLN 

ORDER BY TMMNA ASC, TMMLN ASC 


IBOTMl 

OBTAIN A ROW IN TABLE TM VIA ACCESS PATH TM1 . 
SELECT TMMNA, TMMLN, TMTXT, TMTNA 
FROM TM IN MENU_DATABASE 
WHERE TMMNA = : TMMNA AND 
TMTNA = : TMTNA 

ORDER BY TMMNA ASC, TMTNA ASC 
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IBOTM2 

OBTAIN A ROW IN TABLE TM VIA ACCESS PATH TM2. 

SELECT TMMNA, TMMLN, TMTXT, TMTNA 
FROM TM IN MENU.DAT ABASE 
WHERE TMTNA = : TMTNA 
ORDER BY TMTNA ASC 

IBOTM3 

OBTAIN A ROW IN TABLE TM VIA ACCESS PATH TM3. 

SELECT TMMNA, TMMLN, TMTXT, TMTNA 
FROM TM IN ME NU_DAT ABASE 
WHERE TMMNA = : TMMNA 
ORDER BY TMMNA ASC, TMMLN ASC 

IBATMO 

OBTAIN A ROW IN TABLE TM USING AN APPROXIMATE KEY VALUE AND ACCESS PATH TMO. 
SELECT TMMNA, TMMLN, TMTXT, TMTNA 
FROM TM IN MENU_DATABASE 
WHERE (TMMNA > : TMMNA) 

OR ((TMMNA = : TMMNA) AND (TMMLN > : TMMLN)) 

OR (TMMNA = : TMMNA AND TMMLN = : TMMLN) 

ORDER BY TMMNA ASC, TMMLN ASC 

IBATMl 

OBTAIN A ROW IN TABLE TM USING AN APPROXIMATE KEY VALUE AND ACCESS PATH TM1 . 
SELECT TMMNA, TMMLN, TMTXT, TMTNA 
FROM TM IN ME NU.DAT ABASE 
WHERE (TMMNA > : TMMNA) 

OR ((TMMNA = : TMMNA) AND (TMTNA > ; TMTNA)) 

OR (TMMNA = : TMMNA AND TMTNA = : TMTNA) 

ORDER BY TMMNA ASC, TMTNA ASC 

IBATM2 

OBTAIN A ROW IN TABLE TM USING AN APPROXIMATE KEY VALUE AND ACCESS PATH TM2. 
SELECT TMMNA, TMMLN, TMTXT, TMTNA 
FROM TM IN ME NU_DAT ABASE 
WHERE TMTNA >= : TMTNA 
ORDER BY TMTNA ASC 

IBATM3 

OBTAIN A ROW IN TABLE TM USING AN APPROXIMATE KEY VALUE AND ACCESS PATH TM3, 
SELECT TMMNA, TMMLN, TMTXT, TMTNA 
FROM TM IN MENU.DATABASE 
WHERE TMMNA >= : TMMNA 
ORDER BY TMMNA ASC, TMMLN ASC 
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IBETM2 

OBTAIN THE NEXT DUPLICATE ROW FROM TABLE TM VIA ACCESS PATH TM2. 
SAVE THE CURRENT POSITION IN TABLE TM. 

FETCH THE NEXT ROW FROM TABLE TM. 

SET iTMMNA, :TMMLN, :TMTXT, :TMTNA 


IBETM3 

OBTAIN THE NEXT DUPLICATE ROW FROM TABLE TM VIA ACCESS PATH TM3. 
SAVE THE CURRENT POSITION IN TABLE TM. 

FETCH THE NEXT ROW FROM TABLE TM. 

SET :TMMNA, :TMMLN, :TMTXT, ;TMTNA 

IBFTMO 

OBTAIN THE FIRST ROW OF TABLE TM, ORDERED BY ACCESS PATH TMO . 
SELECT TMMNA, TMMLN, TMTXT, TMTNA 
FROM TM IN MENU.DATABASE 
ORDER BY TMMNA ASC, TMMLN ASC 

IBFTMl 

OBTAIN THE FIRST ROW OF TABLE TM, ORDERED BY ACCESS PATH TM1 . 
SELECT TMMNA, TMMLN, TMTXT, TMTNA 
FROM TM IN MENU.DAT ABASE 
ORDER BY TMMNA ASC, TMTNA ASC 

IBFTM2 

OBTAIN THE FIRST ROW OF TABLE TM, ORDERED BY ACCESS PATH TM2 . 
SELECT TMMNA, TMMLN, TMTXT, TMTNA 
FROM TM IN MENU.DATABASE 
ORDER BY TMTNA ASC 

IBFTM3 

OBTAIN THE FIRST ROW OF TABLE TM, ORDERED BY ACCESS PATH TM3. 
SELECT TMMNA, TMMLN, TMTXT, TMTNA 
FROM TM IN MENU.DATABASE 
ORDER BY TMMNA ASC, TMMLN ASC 

IBNTMO 

OBTAIN THE NEXT ROW OF TABLE TM, ORDERED BY ACCESS PATH TMO. 

SET : TMMNA, .-TMMLN, : TMTXT, .-TMTNA 

IBNTMl 

OBTAIN THE NEXT ROW OF TABLE TM, ORDERED BY ACCESS PATH TMl . 

SET : TMMNA, .-TMMLN, .-TMTXT, .-TMTNA 
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IBNTM2 

OBTAIN THE NEXT ROW OF TABLE TM. ORDERED BY ACCESS PATH TM2. 
SET :TMMNA, :TMMLN. :TMTXT, :TMTNA 

IBNTM3 

OBTAIN THE NEXT ROW OF TABLE TM. ORDERED BY ACCESS PATH TM3. 
SET :TMMNA. :TMMLN. zTMTXT. :TMTNA 


IBOTITM 

USING COSET TITM. OBTAIN THE ROW FROM TABLE TI THAT OWNS SPECIFIC 
ROWS IN MEMBER TABLE TM 

SELECT TITNA. TISEC, TITYP, TIDSC 
INTO .-TITNA. ; TISEC. -.TITYP, : TIDSC 
FROM TI IN MENU.DATABASE 
WHERE TITNA = -.TMTNA 


IBOMITM 

USING COSET MITM. OBTAIN THE ROW FROM TABLE MI THAT OWNS SPECIFIC 
ROWS IN MEMBER TABLE TM 

SELECT MIMNA. MITYP, MISTA. MITTL 
INTO .-MIMNA, :MITYP, :MISTA, :MITTL 
FROM MI IN MENU.DATABASE 
WHERE MIMNA = :TMMNA 


IBFTITM 

OBTAIN THE FIRST ROW FROM MEMBER TABLE TM WITHIN COSET TITM, USING 
ACCESS PATH TM2 . 

SELECT TMMNA, TMMLN, TMTXT, TMTNA 
FROM TM IN MENU.DATABASE 
WHERE TMTNA = : TITNA 
ORDER BY TMTNA ASC 


IBFMITM 

OBTAIN THE FIRST ROW FROM MEMBER TABLE TM WITHIN COSET MITM, USING 
ACCESS PATH TM3. 

SELECT TMMNA, TMMLN, TMTXT, TMTNA 
FROM TM IN MENU_DATABASE 
WHERE TMMNA = : MIMNA 
ORDER BY TMMNA ASC, TMMLN ASC 


IBNTITM 


OBTAIN THE NEXT ROW 
SET : TMMNA, 


FROM MEMBER TABLE TM WITHIN COSET TITM. 
: TMMLN, : TMTXT, : TMTNA 


IBNMITM 


OBTAIN THE NEXT ROW 
SET : TMMNA, 


FROM MEMBER TABLE TM WITHIN COSET MITM. 
: TMMLN, : TMTXT, : TMTNA 
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Task Process (TP) Routines 

The TP table defines the individual steps (task processes) that compose a task. 
IBSTP 

STORE A NEW ROW IN TABLE TP. 

INSERT INTO TP IN MENU_DATABASE 
SET TPTNA = :TPTNA, 

TPSEQ = :TPSEQ, 

TPTYP = iTPTYP, 

TPNAM = :TPNAM, 

TPFNA = iTPFNA 

IBMTP 

MODIFY AN EXISTING ROW IN TABLE TP. 

UDPATE TP IN MENU.DAT ABASE 
WHERE TPTNA = : TPTNA AND 
TPSEQ = : TPSEQ 
SET TPTNA = : TPTNA, 

TPSEQ = : TPSEQ, 

TPTYP = : TPTYP, 

TPNAM = : TPNAM, 

TPFNA = : TPFNA 

IBDTP 

DELETE AN EXISTING ROW IN TABLE TP. 

DELETE FROM TP IN MENU.DATABASE 
WHERE TPTNA = : TPTNA AND 
TPSEQ = : TPSEQ 

IBOTPO 

OBTAIN A ROW IN TABLE TP VIA ACCESS PATH TPO . 

SELECT TPTNA, TPSEQ, TPTYP, TPNAM, TPFNA 
FROM TP IN ME NU.DAT ABASE 
WHERE TPTNA = : TPTNA AND 
TPSEQ = : TPSEQ 

ORDER BY TPTNA ASC, TPSEQ ASC 

IBOTPl 

OBTAIN A ROW IN TABLE TP VIA ACCESS PATH TP1. 

SELECT TPTNA, TPSEQ, TPTYP, TPNAM, TPFNA 

FROM TP IN MENU_DATABASE 

WHERE TPTNA = : TPTNA 

ORDER BY TPTNA ASC, TPSEQ ASC 
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IBATPO 

OBTAIN A ROW IN TABLE TP USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH TPO . 

SELECT TPTNA, TPSEQ, TPTYP, TPNAM, TPFNA 
FROM TP IN MENU.DATABASE 
WHERE (TPTNA > : TPTNA) 

OR ((TPTNA = -.TPTNA) AND (TPSEQ > :TPSEQ)) 

OR (TPTNA = : TPTNA AND TPSEQ = : TPSEQ) 

ORDER BY TPTNA ASC, TPSEQ ASC 


IBATPl 

OBTAIN A ROW IN TABLE TP USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH TPl. 

SELECT TPTNA, TPSEQ. TPTYP, TPNAM, TPFNA 

FROM TP IN MENU.DAT ABASE 

WHERE TPTNA >= : TPTNA 

ORDER BY TPTNA ASC. TPSEQ ASC 


IBETPl 

OBTAIN THE NEXT DUPLICATE ROW FROM TABLE TP VIA ACCESS PATH TPl. 
SAVE THE CURRENT POSITION IN TABLE TP. 

FETCH THE NEXT ROW FROM TABLE TP. 

SET : TPTNA, : TPSEQ, : TPTYP, : TPNAM, : TPFNA 


IBFTPO 

OBTAIN THE FIRST ROW OF TABLE TP. ORDERED BY ACCESS PATH TPO. 
SELECT TPTNA, TPSEQ. TPTYP. TPNAM, TPFNA 
FROM TP IN ME NU_DAT ABASE 
ORDER BY TPTNA ASC, TPSEQ ASC 


IBFTPl 

OBTAIN THE FIRST ROW OF TABLE TP, ORDERED BY ACCESS PATH TPl. 
SELECT TPTNA, TPSEQ. TPTYP. TPNAM, TPFNA 
FROM TP IN MENU.DATABASE 
ORDER BY TPTNA ASC, TPSEQ ASC 


IBNTPO 

OBTAIN THE NEXT ROW OF TABLE TP, ORDERED BY ACCESS PATH TPO. 
SET : TPTNA, : TPSEQ, : TPTYP, : TPNAM. : TPFNA 

IBNTPl 

OBTAIN THE NEXT ROW OF TABLE TP, ORDERED BY ACCESS PATH TPl. 
SET :TPTNA, :TPSEQ, :TPTYP, :TPNAM, iTPFNA 


B-142 EDL Customization for NOS 


Revision A 



Task Process (TP) Routines 


IBOTITP 

USING COSET TITP, OBTAIN THE ROW FROM TABLE TI THAT OWNS SPECIFIC 
ROWS IN MEMBER TABLE TP 

SELECT TITNA, TISEC, TITYP, TIDSC 
INTO :TITNA, :TISEC, :TITYP, iTIDSC 
FROM TI IN MENU.DATABASE 
WHERE TITNA = :TPTNA 


IBFTITP 

OBTAIN THE FIRST ROW FROM MEMBER TABLE TP WITHIN COSET TiTP, USING 
ACCESS PATH TP1. 

SELECT TPTNA, TPSEQ, TPTYP, TPNAM, TPFNA 

FROM TP IN MENU_DATABASE 

WHERE TPTNA = : TITNA 

ORDER BY TPTNA ASC, TPSEQ ASC 


IBNTITP 

OBTAIN THE NEXT ROW FROM MEMBER TABLE TP WITHIN COSET TITP. 
SET : TPTNA, : TPSEQ, : TPTYP, : TPNAM, : TPFNA 
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The TT table defines how data is transferred from one application to another. 

IBSTT 

STORE A NEW ROW IN TABLE TT. 

INSERT INTO TT IN ENGINEER I NG_DATA_DAT ABASE 
SET TTADT1 = :TTADT1, 

TTADT2 = :TTADT2, 

TTTNA = :TTTNA 

IBMTT 

MODIFY AN EXISTING ROW IN TABLE TT. 

UDPATE TT IN ENGINEERING_DATA_DAT ABASE 
WHERE TTADT1 = :TTADT1 AND 
TTADT2 = :TTADT2 
SET TTADT1 = :TTADT1, 

TTADT2 = :TTADT2, 

TTTNA = : TTTNA 


IBDTT 

DELETE AN EXISTING ROW IN TABLE TT . 

DELETE FROM TT IN ENGINEERING_DATA_DATABASE 
WHERE TTADT1 = :TTADT1 AND 
TTADT2 = :TTADT2 


IBOTTO 

OBTAIN A ROW IN TABLE TT VIA ACCESS PATH TTO. 
SELECT TTADTl, TTADT2 , TTTNA 
FROM TT IN ENGINEERING_DATA_DATABASE 
WHERE TTADTl = -.TTADTl AND 
TTADT2 = :TTADT2 
ORDER BY TTADTl ASC, TTADT2 ASC 


IBOTTl 

OBTAIN A ROW IN TABLE TT VIA ACCESS PATH TT1 . 
SELECT TTADTl, TTADT2. TTTNA 
FROM TT IN ENGINEERING_DATA_DATABASE 
WHERE TTADTl = : TTADTl 
ORDER BY TTADTl ASC 


IBOTT2 

OBTAIN A ROW IN TABLE TT VIA ACCESS PATH TT2. 
SELECT TTADTl, TTADT2, TTTNA 
FROM TT IN ENGINEERING_DATA_DATABASE 
WHERE TTADT2 = :TTADT2 
ORDER BY TTADT2 ASC 
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IBATTO 

OBTAIN A ROW IN TABLE TT USING AN APPROXIMATE KEY VALUE AND ACCESS PATH TTO . 
SELECT TTADTl, TTADT2, TTTNA 
FROM TT IN ENGINEERING_DATA_DATABASE 
WHERE (TTADTl > : TTADTl) 

OR ((TTADTl = : TTADTl) AND (TTADT2 > :TTADT2)) 

OR (TTADTl = : TTADTl AND TTADT2 = :TTADT2) 

ORDER BY TTADTl ASC, TTADT2 ASC 

IBATTl 

OBTAIN A ROW IN TABLE TT USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH TTl. 

SELECT TTADTl, TTADT2. TTTNA 
FROM TT IN ENGINEERING_DATA_DATABASE 
WHERE TTADTl >= : TTADTl 
ORDER BY TTADTl ASC 

IBATT2 

OBTAIN A ROW IN TABLE TT USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH TT2. 

SELECT TTADTl, TTADT2, TTTNA 
FROM TT IN ENGINEERING_DATA_DATABASE 
WHERE TTADT2 >= :TTADT2 
ORDER BY TTADT2 ASC 


IBETTl 

OBTAIN THE NEXT DUPLICATE ROW FROM TABLE TT VIA ACCESS PATH TTl. 
SAVE THE CURRENT POSITION IN TABLE TT. 

FETCH THE NEXT ROW FROM TABLE TT. 

SET : TTADTl, :TTADT2, : TTTNA 


IBETT2 

OBTAIN THE NEXT DUPLICATE ROW FROM TABLE TT VIA ACCESS PATH TT2. 
SAVE THE CURRENT POSITION IN TABLE TT. 

FETCH THE NEXT ROW FROM TABLE TT. 

SET -.TTADTl, :TTADT2, : TTTNA 

IBFTTO 

OBTAIN THE FIRST ROW OF TABLE TT, ORDERED BY ACCESS PATH TTO. 
SELECT TTADTl, TTADT2, TTTNA 
FROM TT IN ENGINEERING_DATA_DATABASE 
ORDER BY TTADTl ASC, TTADT2 ASC 

IBFTTl 

OBTAIN THE FIRST ROW OF TABLE TT, ORDERED BY ACCESS PATH TTl. 
SELECT TTADTl, TTADT2, TTTNA 
FROM TT IN ENGINEERING_DATA_DATABASE 
ORDER BY TTADTl ASC 
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IBFTT2 

OBTAIN THE FIRST ROW OF TABLE TT. ORDERED BY ACCESS PATH TT2. 
SELECT TTADTl, TTADT2, TTTNA 
FROM TT IN ENGINEERING_DATA_DATABASE 
ORDER BY TTADT2 ASC 

IBNTTO 

OBTAIN THE NEXT ROW OF TABLE TT, ORDERED BY ACCESS PATH TTO. 
SET : TTADTl, :TTADT2, : TTTNA 

IBNTTl 

OBTAIN THE NEXT ROW OF TABLE TT, ORDERED BY ACCESS PATH TT1 . 
SET : TTADTl, :TTADT2, : TTTNA 

IBNTT2 

OBTAIN THE NEXT ROW OF TABLE TT, ORDERED BY ACCESS PATH TT2 . 
SET : TTADTl, :TTADT2, : TTTNA 


IBOATT2 

USING COSET ATT2, OBTAIN THE ROW FROM TABLE AT THAT OWNS SPECIFIC 
ROWS IN MEMBER TABLE TT 

SELECT ATADT, ATNAM, ATFTC, ATTNA, ATSIDR 
INTO : ATADT, : ATNAM, : ATFTC, : ATTNA, ; ATS I DR 
FROM AT IN ENGINEERING_DATA_DATABASE 
WHERE ATADT = :TTADT2 


IBOATTl 

USING COSET ATT1, OBTAIN THE ROW FROM TABLE AT THAT OWNS SPECIFIC 
ROWS IN MEMBER TABLE TT 

SELECT ATADT. ATNAM, ATFTC, ATTNA, ATSIDR 
INTO : ATADT, : ATNAM, : ATFTC, : ATTNA, : ATS I DR 
FROM AT IN ENGINEERING_DATA_DATABASE 
WHERE ATADT = : TTADTl 


IBFATT2 

OBTAIN THE FIRST ROW FROM MEMBER TABLE TT WITHIN COSET ATT2, USING 
ACCESS PATH TT2. 

SELECT TTADTl, TTADT2, TTTNA 
FROM TT IN ENGINEERING_DATA_DATABASE 
WHERE TTADT2 = : ATADT 
ORDER BY TTADT2 ASC 
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IBFATTl 

OBTAIN THE FIRST ROW FROM MEMBER TABLE TT WITHIN COSET ATT1, USING 
ACCESS PATH TTl. 

SELECT TTADTl, TTADT2, TTTNA 
FROM TT IN ENGINEERING_DATA_DATABASE 
WHERE TTADTl = :ATADT 
ORDER BY TTADTl ASC 

IBNATT2 

OBTAIN THE NEXT ROW FROM MEMBER TABLE TT WITHIN COSET ATT2. 

SET : TTADTl, :TTADT2, : TTTNA 


IBNATTl 

OBTAIN THE NEXT ROW FROM MEMBER TABLE TT WITHIN COSET ATTl. 
SET : TTADTl, :TTADT2, : TTTNA 
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Task Parameter Value (TV) Routines 

The TV table defines the parameters that are passed to CLI macros and EDL 
subprograms when they are executed as task processes. Task parameters can also be 
used to answer prompts issued by EDL subprograms. 

IBSTV 

STORE A NEW ROW IN TABLE TV. 

INSERT INTO TV IN MENU.DATABASE 
SET TVTNA = :TVTNA, 

TVSEQ = :TVSEQ, 

TVPOS = ;TVPOS. 

TVPRM = :TVPRM, 

TVTYP = :TVTYP, 

TWAL = :TVVAL 


IBMTV 

MODIFY AN EXISTING ROW IN TABLE TV. 

UDPATE TV IN MENU.DATABASE 
WHERE TVPOS = : TVPOS AND 
TVSEQ = : TVSEQ AND 
TVTNA = : TVTNA 
SET TVTNA = : TVTNA, 

TVSEQ = : TVSEQ, 

TVPOS = .-TVPOS, 

TVPRM = : TVPRM, 

TVTYP = : TVTYP, 

TWAL = :TWAL 

IBDTV 

DELETE AN EXISTING ROW IN TABLE TV. 

DELETE FROM TV IN MENU.DATABASE 
WHERE TVPOS = : TVPOS AND 
TVSEQ = -.TVSEQ AND 
TVTNA = : TVTNA 

IBOTVO 

OBTAIN A ROW IN TABLE TV VIA ACCESS PATH TVO. 

SELECT TVTNA, TVSEQ, TVPOS, TVPRM, TVTYP, TWAL 
FROM TV IN MENU.DATABASE 
WHERE TVPOS = : TVPOS AND 
TVSEQ = : TVSEQ AND 
TVTNA = : TVTNA 

ORDER BY TVPOS ASC, TVSEQ ASC, TVTNA ASC 
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IBOTVl 

OBTAIN A ROW IN TABLE TV VIA ACCESS PATH TV1 . 

SELECT TVTNA, TVSEQ, TVPOS. TVPRM, TVTYP, TWAL 
FROM TV IN MENU.DATABASE 
WHERE TVTNA = : TVTNA AND 
TVSEQ = : TVSEQ 

ORDER BY TVTNA ASC, TVSEQ ASC, TVPOS ASC 

IBOTV2 

OBTAIN A ROW IN TABLE TV VIA ACCESS PATH TV2. 

SELECT TVTNA, TVSEQ, TVPOS, TVPRM, TVTYP, TWAL 
FROM TV IN MENU.DATABASE 
WHERE TVTNA = : TVTNA AND 
TVSEQ = : TVSEQ AND 
TVPRM = : TVPRM 

ORDER BY TVTNA ASC, TVSEQ ASC, TVPRM ASC, TVPOS ASC 

IBATVO 

OBTAIN A ROW IN TABLE TV USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH TVO. 

SELECT TVTNA, TVSEQ, TVPOS, TVPRM, TVTYP, TWAL 
FROM TV IN MENU.DAT ABASE 
WHERE (TVPOS > : TVPOS) 

OR ((TVPOS = : TVPOS) AND (TVSEQ > : TVSEQ)) 

OR ((TVPOS = : TVPOS AND TVSEQ = : TVSEQ) AND (TVTNA > : TVTNA)) 
OR (TVPOS = : TVPOS AND TVSEQ = : TVSEQ AND TVTNA = .TVTNA) 
ORDER BY TVPOS ASC. TVSEQ ASC. TVTNA ASC 


IBATVl 

OBTAIN A ROW IN TABLE TV USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH TV1. 

SELECT TVTNA, TVSEQ, TVPOS, TVPRM, TVTYP, TWAL 
FROM TV IN MENU.DAT ABASE 
WHERE (TVTNA > : TVTNA) 

OR ((TVTNA = : TVTNA) AND (TVSEQ > : TVSEQ)) 

OR (TVTNA = ; TVTNA AND TVSEQ = : TVSEQ) 

ORDER BY TVTNA ASC, TVSEQ ASC. TVPOS ASC 
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IBATV2 

OBTAIN A ROW IN TABLE TV USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH TV2. 

SELECT TVTNA, TVSEQ, TVPOS, TVPRM, TVTYP, TWAL 
FROM TV IN MENU.DAT ABASE 
WHERE (TVTNA > : TVTNA) 

OR ((TVTNA = : TVTNA) AND (TVSEQ > : TVSEQ)) 

OR ((TVTNA = : TVTNA AND TVSEQ = : TVSEQ) AND (TVPRM > : TVPRM)) 
OR (TVTNA = : TVTNA AND TVSEQ = : TVSEQ AND TVPRM = : TVPRM) 
ORDER BY TVTNA ASC, TVSEQ ASC, TVPRM ASC, TVPOS ASC 

IBETVl 

OBTAIN THE NEXT DUPLICATE ROW FROM TABLE TV VIA ACCESS PATH TV1 . 

SAVE THE CURRENT POSITION IN TABLE TV. 

FETCH THE NEXT ROW FROM TABLE TV. 

SET : TVTNA, -.TVSEQ, -.TVPOS, -.TVPRM, -.TVTYP, :TVVAL 


IBETV2 

OBTAIN THE NEXT DUPLICATE ROW FROM TABLE TV VIA ACCESS PATH TV2 . 
SAVE THE CURRENT POSITION IN TABLE TV. 

FETCH THE NEXT ROW FROM TABLE TV. 

SET : TVTNA, : TVSEQ, : TVPOS, : TVPRM, : TVTYP, :TVVAL 


IBFTVO 

OBTAIN THE FIRST ROW OF TABLE TV, ORDERED BY ACCESS PATH TVO . 
SELECT TVTNA, TVSEQ, TVPOS, TVPRM, TVTYP, TWAL 
FROM TV IN ME NU_DAT ABASE 
ORDER BY TVPOS ASC, TVSEQ ASC, TVTNA ASC 


IBFTVl 

OBTAIN THE FIRST ROW OF TABLE TV, ORDERED BY ACCESS PATH TV1 . 
SELECT TVTNA, TVSEQ, TVPOS. TVPRM, TVTYP, TWAL 
FROM TV IN ME NU_DAT ABASE 
ORDER BY TVTNA ASC, TVSEQ ASC, TVPOS ASC 


IBFTV2 

OBTAIN THE FIRST ROW OF TABLE TV, ORDERED BY ACCESS PATH TV2. 
SELECT TVTNA, TVSEQ, TVPOS, TVPRM, TVTYP, TWAL 
FROM TV IN ME NU.DAT ABASE 

ORDER BY TVTNA ASC, TVSEQ ASC, TVPRM ASC, TVPOS ASC 
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IBNTVO 

OBTAIN THE NEXT ROW OF TABLE TV, ORDERED BY ACCESS PATH TVO . 

SET :TVTNA, :TVSEQ, rTVPOS, :TVPRM, :TVTYP, :TWAL 

IBNTVl 

OBTAIN THE NEXT ROW OF TABLE TV, ORDERED BY ACCESS PATH TV1 . 

SET :TVTNA, :TVSEQ, :TVPOS, :TVPRM, :TVTYP, :TVVAL 

IBNTV2 

OBTAIN THE NEXT ROW OF TABLE TV, ORDERED BY ACCESS PATH TV2 . 

SET :TVTNA, :TVSEQ, :TVPOS, :TVPRM, :TVTYP, :TVVAL 

IBOTPTV 

USING COSET TPTV, OBTAIN THE ROW FROM TABLE TP THAT OWNS SPECIFIC 
ROWS IN MEMBER TABLE TV 

SELECT TPTNA, TPSEQ, TPTYP, TPNAM, TPFNA 
INTO :TPTNA, :TPSEQ, :TPTYP, :TPNAM, :TPFNA 
FROM TP IN MENU.DATABASE 
WHERE TPTNA = :TVTNA AND 
TPSEQ = :TVSEQ 

IBFTPTV 

OBTAIN THE FIRST ROW FROM MEMBER TABLE TV WITHIN COSET TPTV, USING 
ACCESS PATH TV1. 

SELECT TVTNA, TVSEQ, TVPOS, TVPRM, TVTYP, TWAL 
FROM TV IN MENU.DAT ABASE 
WHERE TVTNA = .-TPTNA AND 
TVSEQ = : TPSEQ 

ORDER BY TVTNA ASC, TVSEQ ASC, TVPOS ASC 

IBNTPTV 

OBTAIN THE NEXT ROW FROM MEMBER TABLE TV WITHIN COSET TPTV. 

SET : TVTNA, : TVSEQ, : TVPOS, : TVPRM, : TVTYP, :TVVAL 
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User Configuration (UC) Routines 

The UC table contains the terminal configuration attributes of a given EDL user. 

IBSUC 

STORE A NEW ROW IN TABLE UC. 

INSERT INTO UC IN ENGINEERING_DATA_DATABASE 
SET UCUSR = :UCUSR, 

UCATR = :UCATR, 

UCSTA = rUCSTA 


IBMUC 

MODIFY AN EXISTING ROW IN TABLE UC. 

UDPATE UC IN ENGINEERING_DATA_DATABASE 
WHERE UCATR = : UCATR AND 
UCUSR = : UCUSR 
SET UCUSR = : UCUSR, 

UCATR = : UCATR, 

UCSTA *= : UCSTA 


IBDUC 

DELETE AN EXISTING ROW IN TABLE UC. 

DELETE FROM UC IN ENGINEERING_DATA_DATABASE 
WHERE UCATR = : UCATR AND 
UCUSR = : UCUSR 


IBOUCO 

OBTAIN A ROW IN TABLE UC VIA ACCESS PATH UCO . 
SELECT UCUSR, UCATR, UCSTA 
FROM UC IN ENGINEERING_DATA_DATABASE 
WHERE UCATR = : UCATR AND 
UCUSR = : UCUSR 

ORDER BY UCATR ASC, UCUSR ASC 


IBOUCl 

OBTAIN A ROW IN TABLE UC VIA ACCESS PATH UC1 . 
SELECT UCUSR, UCATR, UCSTA 
FROM UC IN ENGINEERING^DATA.DATABASE 
WHERE UCUSR = : UCUSR 
ORDER BY UCUSR ASC 
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IBAUCO 

OBTAIN A ROW IN TABLE UC USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH UCO. 

SELECT UCUSR, UCATR, UCSTA 

FROM UC IN ENGINEERING_DATA_DATABASE 

WHERE (UCATR > : UCATR) 

OR ((UCATR = -.UCATR) AND (UCUSR > : UCUSR)) 

OR (UCATR = : UCATR AND UCUSR = : UCUSR) 

ORDER BY UCATR ASC, UCUSR ASC 


IBAUCl 

OBTAIN A ROW IN TABLE UC USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH UCl. 

SELECT UCUSR, UCATR, UCSTA 

FROM UC IN ENGINEERING_DATA_DATABASE 

WHERE UCUSR >= : UCUSR 

ORDER BY UCUSR ASC 


IBEUCl 

OBTAIN THE NEXT DUPLICATE ROW FROM TABLE UC VIA ACCESS PATH UCl. 
SAVE THE CURRENT POSITION IN TABLE UC. 

FETCH THE NEXT ROW FROM TABLE UC. 

SET : UCUSR, : UCATR, : UCSTA 

IBFUCO 

OBTAIN THE FIRST ROW OF TABLE UC, ORDERED BY ACCESS PATH UCO. 
SELECT UCUSR, UCATR, UCSTA 
FROM UC IN ENGINEERING_DATA_DATABASE 
ORDER BY UCATR ASC, UCUSR ASC 


IBFUCl 

OBTAIN THE FIRST ROW OF TABLE UC, ORDERED BY ACCESS PATH UCl. 
SELECT UCUSR, UCATR, UCSTA 
FROM UC IN ENGINEERING_DATA_DATABASE 
ORDER BY UCUSR ASC 


IBNUCO 

OBTAIN THE NEXT ROW OF TABLE UC, ORDERED BY ACCESS PATH UCO. 
SET : UCUSR, : UCATR, : UCSTA 

IBNUCl 

OBTAIN THE NEXT ROW OF TABLE UC, ORDERED BY ACCESS PATH UCl. 
SET : UCUSR, : UCATR, : UCSTA 


Revision A 


Information Base Routines B-153 



User Configuration (UC) Routines 


IBOUIUC 

USING COSET UIUC, OBTAIN THE ROW FROM TABLE UI THAT OWNS SPECIFIC 
ROWS IN MEMBER TABLE UC 

SELECT UIUSR, UIPWD, UISTA, UIUUN, UIDPT, UICMD, UIFIN, UIMIN, 
UILNA, UITTL, UIDELS, UIDELD, UISTR, UICTY, UIPHO, UIEDT 
INTO rUIUSR, :UIPWD, rUISTA, :UIUUN. :UIDPT. :UICMD. rUIFIN, 
:UIMIN. :UILNA, rUITTL, rUIDELS, lUIDELD, :UISTR, :UICTY, 
:UIPHO. :UIEDT 

FROM UI IN ENGINEER I NG_DATA_DATABASE 
WHERE UIUSR = :UCUSR 


IBFUIUC 

OBTAIN THE FIRST ROW FROM MEMBER TABLE UC WITHIN COSET UIUC. USING 
ACCESS PATH UC1 . 

SELECT UCUSR, UCATR. UCSTA 

FROM UC IN ENGINEERING_DATA_DATABASE 

WHERE UCUSR = : UIUSR 

ORDER BY UCUSR ASC 


IBNUIUC 

OBTAIN THE NEXT ROW FROM MEMBER TABLE UC WITHIN COSET UIUC. 
SET : UCUSR, : UCATR, : UCSTA 
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User Information (UI) Routines 

The UI table defines EDL users and contains related profile information. 

IBSUI 

STORE A NEW ROW IN TABLE UI. 

INSERT INTO UI IN ENGINEERING_DATA_DAT ABASE 
SET UIUSR = :UIUSR, 

UIPWD = rUIPWD, 

UISTA = :UISTA, 

UIUUN = :UIUUN, 

UIDPT = :UIDPT, 

UICMD = :UICMD, 

UIFIN = rUIFIN, 

UIMIN = :UIMIN, 

UILNA = :UILNA, 

UITTL = :UITTL, 

UIDELS = rUIDELS, 

UIDELD = .-UIDELD, 

UISTR = :UISTR, 

UICTY = :UICTY, 

UIPHO = :UIPHO, 

UIEDT = :UIEDT 

IBMUI 

MODIFY AN EXISTING ROW IN TABLE UI . 

UDPATE UI IN ENGINEERING_DATA_DATABASE 
WHERE UIUSR = : UIUSR 
SET UIUSR = : UIUSR, 

UIPWD = : UIPWD. 

UISTA = : UISTA, 

UIUUN = :UIUUN, 

UIDPT = : UIDPT, 

UICMD = : UICMD. 

UIFIN = rOIFIN, 

UIMIN = :UIMIN, 

UILNA = : UILNA, 

UITTL = : UITTL, 

UIDELS = rUIDELS, 

UIDELD = rUIDELD, 

UISTR = : UISTR, 

UICTY = : UICTY, 

UIPHO = : UIPHO, 

UIEDT = : UIEDT 
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IBDUI 

DELETE AN EXISTING ROW IN TABLE UI . 

DELETE FROM UI IN ENGINEERING_DATA_DAT ABASE 
WHERE UIUSR = rUIUSR 

IBOUIO 

OBTAIN A ROW IN TABLE UI VIA ACCESS PATH UIO. 

SELECT UIUSR, UIPWD, UISTA, UIUUN, UIDPT, UICMD, UIFIN, UIMIN, 
UILNA, UITTL, UIDELS, UIDELD, UISTR, UICTY, UIPHO, UIEDT 
FROM UI IN ENGINEER I NG_DATA_DAT ABASE 
WHERE UIUSR = : UIUSR 
ORDER BY UIUSR ASC 

IBOUIl 

OBTAIN A ROW IN TABLE UI VIA ACCESS PATH UIl. 

SELECT UIUSR, UIPWD, UISTA, UIUUN, UIDPT, UICMD, UIFIN, UIMIN, 
UILNA, UITTL, UIDELS, UIDELD, UISTR, UICTY, UIPHO, UIEDT 
FROM UI IN ENGINEERING_DATA_DATABASE 
WHERE UILNA = : UILNA AND 
UIFIN = :UIFIN AND 
UIMIN = :UIMIN 

ORDER BY UILNA ASC, UIFIN ASC, UIMIN ASC, UIUSR ASC 

IBOUI2 

OBTAIN A ROW IN TABLE UI VIA ACCESS PATH UI2. 

SELECT UIUSR, UIPWD, UISTA. UIUUN. UIDPT. UICMD, UIFIN. UIMIN, 
UILNA, UITTL, UIDELS, UIDELD. UISTR, UICTY, UIPHO, UIEDT 
FROM UI IN ENGINEERING_DATA_DATABASE 
WHERE UIUUN = : UIUUN 
ORDER BY UIUUN ASC 

IBAUIO 

OBTAIN A ROW IN TABLE UI USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH UIO. 

SELECT UIUSR, UIPWD, UISTA. UIUUN, UIDPT, UICMD, UIFIN, UIMIN, 
UILNA. UITTL, UIDELS, UIDELD. UISTR, UICTY, UIPHO, UIEDT 
FROM UI IN ENGINEERING_DATA_DATABASE 
WHERE UIUSR >= : UIUSR 
ORDER BY UIUSR ASC 


IBAUIl 

OBTAIN A ROW IN TABLE UI USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH UI1. 

SELECT UIUSR, UIPWD, UISTA, UIUUN, UIDPT, UICMD, UIFIN, UIMIN, 
UILNA, UITTL, UIDELS, UIDELD, UISTR, UICTY, UIPHO, UIEDT 
FROM UI IN ENGINEERING_DATA_DATABASE 
WHERE (UILNA > : UILNA) 
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OR ((UILNA = :UILNA) AND (UIFIN > :UIFIN)) 

OR ((UILNA = :UILNA AND UIFIN = :UIFIN) AND (UIMIN > :UIMIN)) 
OR (UILNA = :UILNA AND UIFIN = :UIFIN AND UIMIN = rUIMIN) 
ORDER BY UILNA ASC , UIFIN ASC, UIMIN ASC, UIUSR ASC 


IBAUI2 

OBTAIN A ROW IN TABLE UI USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH UI2. 

SELECT UIUSR, UIPWD, UISTA, UIUUN, UIDPT, UICMD, UIFIN. UIMIN, 
UILNA, UITTL, UIDELS, UIDELD, UISTR, UICTY, UIPHO, UIEDT 
FROM UI IN ENGINEERING_DATA_DATABASE 
WHERE UIUUN >= rUIUUN 
ORDER BY UIUUN ASC 


IBEUIl 

OBTAIN THE NEXT DUPLICATE ROW FROM TABLE UI VIA ACCESS PATH UIl. 

SAVE THE CURRENT POSITION IN TABLE UI . 

FETCH THE NEXT ROW FROM TABLE UI . 

SET rUIUSR, rUIPWD, rUISTA. rUIUUN, :UIDPT, rUICMD, :UIFIN. 
:UIMIN, :UILNA, :UITTL, rUIDELS, rUIDELD, :UISTR, :UICTY, 
:UIPHO, :UIEDT 


IBEUI2 

OBTAIN THE NEXT DUPLICATE ROW FROM TABLE UI VIA ACCESS PATH UI2. 

SAVE THE CURRENT POSITION IN TABLE UI . 

FETCH THE NEXT ROW FROM TABLE UI . 

SET :UIUSR, rUIPWD, rUISTA, rUIUUN, lUIDPT, lUICMD, rUIFIN, 
:UIMIN, rUILNA, :UITTL, rUIDELS, rUIDELD, rUISTR, rUICTY, 
rUIPHO, rUIEDT 


IBFUIO 

OBTAIN THE FIRST ROW OF TABLE UI, ORDERED BY ACCESS PATH UIO. 

SELECT UIUSR, UIPWD, UISTA, UIUUN, UIDPT, UICMD, UIFIN, UIMIN, 
UILNA, UITTL, UIDELS, UIDELD, UISTR, UICTY. UIPHO. UIEDT 
FROM UI IN ENGINEERING_DATA_DATABASE 
ORDER BY UIUSR ASC 


IBFUIl 

OBTAIN THE FIRST ROW OF TABLE UI, ORDERED BY ACCESS PATH UIl. 

SELECT UIUSR, UIPWD. UISTA. UIUUN, UIDPT. UICMD, UIFIN, UIMIN, 
UILNA, UITTL, UIDELS, UIDELD, UISTR, UICTY, UIPHO, UIEDT 
FROM UI IN ENGINEERING_DATA_DAT ABASE 
ORDER BY UILNA ASC. UIFIN ASC, UIMIN ASC, UIUSR ASC 
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IBFUI2 

OBTAIN THE FIRST ROW OF TABLE UI . ORDERED BY ACCESS PATH UI2. 

SELECT UIUSR, UIPWD, UISTA, UIUUN, UIDPT, UICMD, UIFIN, UIMIN, 
UILNA, UITTL, UIDELS, UIDELD, UISTR, UICTY, UIPHO, UIEDT 
FROM UI IN ENGINEERING_DATA_DATABASE 
ORDER BY UIUUN ASC 


IBNUIO 

OBTAIN THE NEXT ROW OF TABLE UI, ORDERED BY ACCESS PATH UIO. 

SET :UIUSR, :UIPWD, rUISTA, rUIUUN, rUIDPT, :UICMD, :UIFIN, 
:UIMIN, rUILNA, :UITTL, rUIDELS, lUIDELD, :UISTR, :UICTY, 
:UIPHO, rUIEDT 


IBNUIl 

OBTAIN THE NEXT ROW OF TABLE UI, ORDERED BY ACCESS PATH UI1. 

SET :UIUSR, rUIPWD, :UISTA, :UIUUN, rUIDPT, :UICMD, ;UIFIN, 
:UIMIN, :UILNA, :UITTL, lUIDELS, :UIDELD, :UISTR, :UICTY, 
:UIPHO, :UIEDT 


IBNUI2 

OBTAIN THE NEXT ROW OF TABLE UI, ORDERED BY ACCESS PATH UI2. 

SET :UIUSR, rUIPWD, :UISTA, :UIUUN, :UIDPT, :UICMD, :UIFIN, 
:UIMIN, rUILNA, :UITTL, lUIDELS, rUIDELD, :UISTR, :UICTY, 
:UIPHO, :UIEDT 
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User Permits (UP) Routines 

The UP table defines file permissions granted to individual EDL users. 
IBSUP 

STORE A NEW ROW IN TABLE UP. 

INSERT INTO UP IN ENGINEERING_DATA_DATABASE 
SET UPFIL = :UPFIL, 

UPUSR = :UPUSR. 

UPMOD = :UPMOD 


IBMUP 

MODIFY AN EXISTING ROW IN TABLE UP. 

UDPATE UP IN ENGINEERING_DATA_DATABASE 
WHERE UPFIL = :UPFIL AND 
UPUSR = : UPUSR 
SET UPFIL = :UPFIL, 

UPUSR = : UPUSR, 

UPMOD = : UPMOD 


IBDUP 

DELETE AN EXISTING ROW IN TABLE UP. 

DELETE FROM UP IN ENGINEERING_DATA_DATABASE 
WHERE UPFIL = : UPFIL AND 
UPUSR = : UPUSR 


IBOUPO 

OBTAIN A ROW IN TABLE UP VIA ACCESS PATH UPO. 
SELECT UPFIL, UPUSR, UPMOD 
FROM UP IN ENGINEERING_DATA_DATABASE 
WHERE UPFIL = :UPFIL AND 
UPUSR = : UPUSR 

ORDER BY UPFIL ASC, UPUSR ASC 


IBOUPl 

OBTAIN A ROW IN TABLE UP VIA ACCESS PATH UP1. 
SELECT UPFIL, UPUSR, UPMOD 
FROM UP IN ENGINEERING_DATA_DATABASE 
WHERE UPFIL = :UPFIL 
ORDER BY UPFIL ASC, UPUSR ASC 


IBOUP2 

OBTAIN A ROW IN TABLE UP VIA ACCESS PATH UP2. 
SELECT UPFIL, UPUSR, UPMOD 
FROM UP IN ENGINEERING_DATA_DATABASE 
WHERE UPUSR = -.UPUSR 
ORDER BY UPUSR ASC 
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IBAUPO 

OBTAIN A ROW IN TABLE UP USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH UPO. 

SELECT UPFIL, UPUSR, UPMOD 

FROM UP IN ENGINEERING_DATA_DATABASE 

WHERE (UPFIL > :UPFIL) 

OR ((UPFIL = -.UPFIL) AND (UPUSR > :UPUSR)) 

OR (UPFIL = : UPFIL AND UPUSR = : UPUSR) 

ORDER BY UPFIL ASC, UPUSR ASC 


IBAUPl 

OBTAIN A ROW IN TABLE UP USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH UPl. 

SELECT UPFIL, UPUSR, UPMOD 

FROM UP IN ENGINEERING_DATA_DATABASE 

WHERE UPFIL >= -.UPFIL 

ORDER BY UPFIL ASC, UPUSR ASC 


IBAUP2 

OBTAIN A ROW IN TABLE UP USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH UP2. 

SELECT UPFIL, UPUSR, UPMOD 

FROM UP IN ENGINEERING_DATA_DATABASE 

WHERE UPUSR >= : UPUSR 

ORDER BY UPUSR ASC 


IBEUPl 

OBTAIN THE NEXT DUPLICATE ROW FROM TABLE UP VIA ACCESS PATH UPl. 
SAVE THE CURRENT POSITION IN TABLE UP. 

FETCH THE NEXT ROW FROM TABLE UP. 

SET :UPFIL, :UPUSR, lUPMOD 

IBEUP2 

OBTAIN THE NEXT DUPLICATE ROW FROM TABLE UP VIA ACCESS PATH UP2. 
SAVE THE CURRENT POSITION IN TABLE UP. 

FETCH THE NEXT ROW FROM TABLE UP. 

SET :UPFIL, :UPUSR, lUPMOD 


IBFUPO 

OBTAIN THE FIRST ROW OF TABLE UP. ORDERED BY ACCESS PATH UPO. 
SELECT UPFIL, UPUSR, UPMOD 
FROM UP IN ENGINEERING_DATA_DATABASE 
ORDER BY UPFIL ASC, UPUSR ASC 
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IBFUPl 

OBTAIN THE FIRST ROW OF TABLE UP, ORDERED BY ACCESS PATH UP1. 

SELECT. UPFIL, UPUSR, UPMOD 

FROM UP IN ENGINEERING_DATA_DATABASE 

ORDER BY UPFIL ASC, UPUSR ASC 

IBFUP2 

OBTAIN THE FIRST ROW OF TABLE UP, ORDERED BY ACCESS PATH UP2. 

SELECT UPFIL, UPUSR, UPMOD 

FROM UP IN ENGINEERING_DATA_DATABASE 

ORDER BY UPUSR ASC 

IBNUPO 

OBTAIN THE NEXT ROW OF TABLE UP, ORDERED BY ACCESS PATH UPO . 

SET -.UPFIL, -.UPUSR, -.UPMOD 

IBNUPl 

OBTAIN THE NEXT ROW OF TABLE UP, ORDERED BY ACCESS PATH UP1. 

SET :UPFIL. :UPUSR, :UPMOD 

IBNUP2 

OBTAIN THE NEXT ROW OF TABLE UP, ORDERED BY ACCESS PATH UP2 . 

SET : UPFIL, : UPUSR, : UPMOD 

IBOFIUP 

USING COSET FIUP, OBTAIN THE ROW FROM TABLE FI THAT OWNS SPECIFIC 
ROWS IN MEMBER TABLE UP 

SELECT FIFIL, FIHOS, FIFUN, FIPFN, FILNA, FIFTC, FIUSR, FICT, 
FIMOD, FISTA, FIVSN 

INTO :FIFIL, :FIHOS, :FIFUN, :FIPFN, :FILNA, :FIFTC, :FIUSR, 
:FICT, :FIMOD, :FISTA, :FIVSN 
FROM FI IN ENGINEER I NG_DATA_DATABASE 
WHERE FIFIL = :UPFIL 

IBOUIUP 

USING COSET UIUP, OBTAIN THE ROW FROM TABLE UI THAT OWNS SPECIFIC 
ROWS IN MEMBER TABLE UP 

SELECT UIUSR, UIPWD, UISTA, UIUUN, UIDPT, UICMD, UIFIN, UIMIN, 
UILNA, UITTL, UIDELS, UIDELD, UISTR, UICTY, UIPHO, UIEDT 
INTO :UIUSR, rUIPWD, rUISTA, :UIUUN, :UIDPT, :UICMD, :UIFIN, 
:UIMIN, :UILNA, :UITTL, rUIDELS, :UIDELD, :UISTR, :UICTY, 
:UIPHO, :UIEDT 

FROM UI IN ENGINEERING_DATA_DAT ABASE 
WHERE UIUSR = : UPUSR 
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IBFFIUP 

OBTAIN THE FIRST ROW FROM MEMBER TABLE UP WITHIN COSET FIUP, USING 
ACCESS PATH UP1. 

SELECT UPFIL, UPUSR, UPMOD 

FROM UP IN ENGINEERING_DATA_DATABASE 

WHERE UPFIL = :FIFIL 

ORDER BY UPFIL ASC, UPUSR ASC 

IBFUIUP 

OBTAIN THE FIRST ROW FROM MEMBER TABLE UP WITHIN COSET UIUP, USING 
ACCESS PATH UP2 . 

SELECT UPFIL, UPUSR, UPMOD 

FROM UP IN ENGINEERING_DATA_DATABASE 

WHERE UPUSR = :UIUSR 

ORDER BY UPUSR ASC 

IBNFIUP 

OBTAIN THE NEXT ROW FROM MEMBER TABLE UP WITHIN COSET FIUP. 

SET : UPFIL, : UPUSR, : UPMOD 

IBNUIUP 

OBTAIN THE NEXT ROW FROM MEMBER TABLE UP WITHIN COSET UIUP. 

SET : UPFIL, : UPUSR, : UPMOD 
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Vendor Information (VI) Routines 


Vendor Information (VI) Routines 

The VI table defines vendor names and vendor codes. 

IBSVI 

STORE A NEW ROW IN TABLE VI. 

INSERT INTO VI IN ENGINEERING_DATA_DATABASE 
SET VIVEN = rVIVEN, 

VI NAM = : VI NAM, 

VISTR = :VISTR, 

VICTY = :VICTY, 

VIPHO = :VIPHO 

IBMVI 

MODIFY AN EXISTING ROW IN TABLE VI. 

UDPATE VI IN ENGINEER I NG_DATA_DATABASE 
WHERE VIVEN = :VIVEN 
SET VIVEN = : VIVEN, 

VINAM = :VINAM, 

VISTR = : VISTR, 

VICTY = : VICTY, 

VIPHO = :VIPHO 

IBDVI 

DELETE AN EXISTING ROW IN TABLE VI. 

DELETE FROM VI IN ENGINEERING_DATA_DATABASE 
WHERE VIVEN = rVIVEN 

IBOVIO 

OBTAIN A ROW IN TABLE VI VIA ACCESS PATH VIO. 

SELECT VIVEN. VINAM, VISTR, VICTY, VIPHO 
FROM VI IN ENGINEERING_DATA_DATABASE 
WHERE VIVEN = iVIVEN 
ORDER BY VIVEN ASC 

IBOVIl 

OBTAIN A ROW IN TABLE VI VIA ACCESS PATH VIl . 

SELECT VIVEN. VINAM, VISTR, VICTY, VIPHO 
FROM VI IN ENGINEERING_DATA_DATABASE 
WHERE VINAM = : VINAM 
ORDER BY VINAM ASC 

IBAVIO 

OBTAIN A ROW IN TABLE VI USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH VIO. 

SELECT VIVEN, VINAM, VISTR, VICTY, VIPHO 
FROM VI IN ENGINEERING_DATA_DATABASE 
WHERE VIVEN >= :VIVEN 
ORDER BY VIVEN ASC 
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IBAVIl 

OBTAIN A ROW IN TABLE VI USING AN APPROXIMATE KEY VALUE AND ACCESS 
PATH VII. 

SELECT VIVEN, VINAM, VISTR, VICTY, VIPHO 
FROM VI IN ENGINEERING_DATA_DATABASE 
WHERE VINAM >= : VINAM 
ORDER BY VINAM ASC 


IBFVIO 

OBTAIN THE FIRST ROW OF TABLE VI, ORDERED BY ACCESS PATH VIO. 
SELECT VIVEN, VINAM, VISTR, VICTY, VIPHO 
FROM VI IN ENGINEERING_DATA_DATABASE 
ORDER BY VIVEN ASC 


IBFVIl 

OBTAIN THE FIRST ROW OF TABLE VI, ORDERED BY ACCESS PATH VII. 
SELECT VIVEN, VINAM, VISTR, VICTY, VIPHO 
FROM VI IN ENGINEERING_DATA_DATABASE 
ORDER BY VINAM ASC 


IBNVIO 

OBTAIN THE NEXT ROW OF TABLE VI, ORDERED BY ACCESS PATH VIO. 
SET : VIVEN, : VINAM, : VISTR, : VICTY, : VIPHO 


IBNVIl 

OBTAIN THE NEXT ROW OF TABLE VI, ORDERED BY ACCESS PATH VII. 
SET : VIVEN, : VINAM, : VISTR, : VICTY, : VIPHO 
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standard EDL OVCAP Subroutines 


C 


Routine 

ATTACH 

DDNPRE 

DDNPRE2 

DFMAIN 

DISPLY (POP) 

EDITF 

EDITR 

EDLOGN 

EQUIT 

FIACQ 

FIARCH 

FICORR 

FIDEFI 

FIDEL 

FIEDIT 

FILOWN 

FILPER 

FIRECL 

FIREQ 

FIROUT 

FIRST 


Description 

Prepares the user for entry into a particular application, attaches 
default files, ensures that required files are attached, and allows 
the user to attach other files. 

Prepares for entry into DDN. 

Prepares for a DDN transfer. 

Allows the user to list, add, and delete the names of files that are 
to be attached automatically when an ICEM application is 
entered. 

Displays records on EEEDL9, and provides a variety of user 
options. 

Calls up a file selected through RETRIEVE DATA and places the 
user in the appropriate editor. 

Returns the edit file called by EDITF and removes it from the list 
of local files. 

Establishes the name for the EDL log file. 

Performs any required processing before ending the EDL session. 
Acquires a file within EDL (same as ATTATT). 

Archives files. 

Displays the file correction menu. 

Allows a user to define a file. 

Prompts for the host information to delete a file. 

Prompts for the file name to edit, ensures that it is editable, and 
performs the PUT VARS. 

Displays all files in a retrieval list and allows the user to select 
from the list for a detailed listing. 

Creates a retrieval list consisting of all permitted files on the 
current host, and allows the user to select from the list for a 
detailed listing. 

Reclaims files. 

Requests a tape. 

Routes a local file known to EDL to the printer. 

Initializes the stack and pushes the user’s first task. 
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Routine 


Description 


FMUPD 

FPMENU 

GETAPN 


Displays the Family Management menu and the load option menu 
from the selection entered by the user. 

Displays the File Permission menu. 

Pushes a retrieval task onto the stack based on the APN in the 
DI record. 


GMMGMT 

GPLIST 

GPMGMT 

GTMGMT 

ISMLOG 

ISMNEW 

LOG 

PATPRE 

PERSON 

PFUPD 

PIUPD 

POSTRP 

PVUPD 

RDATAF 

RDATFU 

RELACC 

RELADM 

RELCHG 


Allows the user to list all members within a group, and add 
members to or delete members from a group. 

Lists all groups within EDL. 

Allows the user to list all information about a group, and add, 
delete, or change groups. 

Allows the user to list authorized task categories for a group, and 
to allow or remove access privileges. 

Translates the Solid Modeler log file into the standard log file 
format. 

Prepares for entering the Solid Modeler when creating a new 
model. 

Processes an application log file. 

Prepares for entry into PATRAN. 

Allows users to change their profiles. 

Displays the Part Family Relationship Management menu and the 
load option menu from the selection entered by the user. 

Displays the Part Management menu and the load option menu 
from the selection entered by the user. 

Performs general postprocessing for reports. 

Displays the Part Vendor Relationship Management menu and the 
load option menu from the selection entered by the user. 

Prepares for production of the full data report. The report is 
actually created by the EDL task names in the global variable 
RDATFU. 

Displays the full data report. 

Creates a list of all submitted data in a specified release 
procedure that may be accepted by the current user. 

Allows the user to list, add, or delete release procedures, and to 
manage releasers and reviewers. 

Allows reviewers to change the review signature for a pending 
data. 
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Routine 

Description 

RELCS 

Changes a review signature. 

RELF 

Dislays the option menu for finalizing data and then calls the 
appropriate routine to release or reject the data. 

RELFIN 

Creates a list of all pending data that the user may finalize for a 
specified release procedure. 

RELR 

Prompts for whether to display the data to be reviewed, and 
displays the data if necessary. 

RELREV 

Creates a list of all pending data for a specified release procedure 
for which the user is a releaser. 

RELRS 

Displays the Review Disposition option menu and stores the 
specified release signature. 

RELS 

Submits data for review/release. 

RELSUB 

Creates a list of all of the current user’s data that may be 
submitted for review/release. 

RLPRE 

Prepares for entry to the Solid Modeler when retrieving an object 
from a library or when retrieving a workspace. 

SAVLOC 

Lists local file and asks the user whether or not any of them 
should be saved. 

TASKS 

Displays a list of task commands available to the user. 

TRANSF 

Transfers data from one application data type to another. 

TRMCON 

Updates the user’s terminal configuration. 

UPDATA 

Loads or updated engineering data information. 

UPFILE 

Updates data information for a file. 

USMGMT 

Allows the DBA to manipulate users. 

VIUPD 

Displays the Vendor Management menu and the Load Option 
menu from the selection entered by the user. 
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Index 




Index 


A 


D 


Access paths 3-8 
Adding tasks 2-10,11; 3-22 
Additional publications 7,8 
Application configuration (AC) record 
Description 3-1 
Routines B-1 
Schema A-6 

Application data type (AT) record 
Description 3-1 
Routines B-8 
Schema A-7 

Application information (AI) record 
Description 3-1 
Routines B-6 
Schema A-6 
Applications 
Adding 4-1 
Batch mode 4-2 
Coding guidelines 4-1 
Command line 4-1 
Data hierarchies 4-3 
Defining data names 4-1 
File creation 4-2 
File locking 4-2 
Log file 4-2 
Packages 5 
Scripts 4-1 


B 


Batch mode operation 4-2 
Batch modifications 2-7 


c 


Coding guidelines 4-1 
Commands 

MASSMOD 2-7 
MESSAGEMOD 2-6,9 
OMENUMOD 2-5 
TASKMOD 2-3,10 
TMENUMOD 2-4 
Comments 8 
COPYF subroutine 3-16 
Cosets 3-11 

CSCRN subroutine 3-16 
Customization techniques 1-1 
CUTNAM function 3-16 
CUTSTR subroutine 3-17 


Data descriptor (DD) record 
Description 3-3 
Routines B-11 
Schema A-12 
Data hierarchies 4-2 
Data names 4-1 
Data required (DR) record 
Description 3-3 
Routines B-28 
Schema A-12 
Data source (DS) record 
Description 3-3 
Routines B-32 
Schema A-12 
Database schemata A-1 
DDB (see Engineering data database) 
Declaring variables 3-7 
Default files (DF) record 
Description 3-3 
Routines B-1 5 
Schema A-6 
Deleting records 3-11 
Directories 1-8 


E 


EDBE character function 3-12 
EDLLIST generator 2-8 
Engineering attributes (EA) record 
Description 3-1 
Routines B-36 
Schema A-7 

Engineering categories (ET) record 
Description 3-1 
Routines B-39 
Schema A-7 

Engineering categories 3-2 
Engineering data database 
Adding tasks 3-23 
Customization 3-1 
Engineering categories 3-2 
Obtaining records 3-8 
Order of changes 3-2 
Record descriptions 3-1,3; A-3 
Sample customizations 3-22 
Schema definitions A-3 
Standard attributes 3-2 
Using IB routines 3-7 
Engineering data information (DI) 
record 

Description 3-3 
Routines B-20 
Schema A- 11 
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ERR subroutine 3-12 


Information base (IB) routines 


ERR subroutine 3-12 
ERRIB subroutine 3-13 
Error and status message routines 
ERRSTR subroutine 3-12 
Examples 

Adding a task 2-10,11; 3-22 
Adding an application 4-3 
Changing a prompt 2-9 
Creating a site-defined retrieval 3-24 
Removing a prompt 2-9 
Execution stack 1-3 


F 


Group members (GM) record 
Description 3-3 
Routines B-64 
Schema A-3 

Group permits (GP) record 
Description 3-3 
Routines B-68 
Schema A-3 

Group security authorization (GS) 
record 

Description 3-4 
Routines B-72 
Schema A-3 


3-12 


Family data (FD) record 
Description 3-3 
Routines B-40 
Schema A-12 

Family information (FM) record 
Description 3-3 
Routines B-51 
Schema A-4 
File creation 4-2 
File information (FI) record 
Description 3-3 
Routines B-44 
Schema A-9 
File locking 4-2 
File permits (FP) record 
Description 3-3 
Routines B-52 
Schema A-10 
File types (FT) record 
Description 3-1 
Routines B-56 
Schema A-7 

FORTRAN interface modules 3-7 
FULLNM function 3-17 
FULPER function 3-17 
Functions 

CUTNAM 3-16 
EDBE 3-12 
FULLNAM 3-17 
FULPER 3-17 
LEFTJ 3-18 
LSTCHR 3-19 


G 


GETPRM subroutine 3-18 
GETPRN subroutine 3-18 
Global variables 3-5 
Group information (GI) record 
Description 3-3 
Routines B-60 
Schema A-3 


H 


Hierarchies 4-3 
Host information (HI) record 
Description 3-4 
Routines B-75 
Schema A-9 


Information base (IB) routines 
Access paths 3-9 

Application configuration (AC) B-1 
Application data type (AT) B-8 
Application information (AI) B-6 
Data descriptor (DD) B-11 
Data required (DR) B-28 
Data source (DS) B-32 
Declaring variables 3-7 
Default files (DF) B-15 
Deleting records 3-11 
Engineering attributes (EA) B-36 
Engineering categories (ET) B-39 
Engineering data information (DI) 
B-20 

Family data (FD) B-40 
Family information (FM) B-51 
File information (FI) B-44 
File permits (FP) B-52 
File t; 3 q)es (FT) B-56 
Group information (GI) B-60 
Group members (GM) B-64 
Group permits (GP) B-68 
Group security authorization (GS) 
B-72 

Host information (HI) B-75 
Message help (MH) B-78 
Message information (MI) B-81 
Modifying records 3-11 
Obtaining records 3-7,9,10,11 
Option keyword (OK) B-83 
Option menu (OM) B-86 
Option value (OV) B-89 
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ININT subroutine 3-14 


Part family (PF) record 


Part family (PF) B-96 
Part information (PI) B-lOO 
Part vendors (PV) B-105 
Parts data (PD) B-92 
Pending permits (PP) B-101 
Release authorization (RA) B-109 
Release procedure (RP) B-115 
Release signature (RS) B-121 
Release transfers (RT) B-126 
Releasers (RU) B-128 
Review responsibility (RR) B-116 
Storing records 3-11 
Task command (TC) B-132 
Task information (TI) B-135 
Task menu (TM) B-137 
Task parameter value (TV). B-148 
Task process (TP) B-141 
Transfer and translation tasks (TT) 
B-144 
Usage 3-6 

User configuration (UC) B-152 
User information (UI) B-160 
User permit (UP) B-159 
Using cosets 3-11 
Vendor information (VI) B-163 
ININT subroutine 3-14 
IN OPT subroutine 3-15 
INP subroutine 3-14 
Interactive menu modification 2-2 
INTXT subroutine 3-14 
INYN subroutine 3-15 


L 


LEFTJ function 3-18 
LIBEDIT 1-8 
LIST subroutine 3-18 
LOADEDL 2-12; 3-24 
Log file 4-2,4 
LSTCHR function 3-19 


M 


MASSMOD 2-2,7 

MDB (see Message and task database) 
Menu database (see Message and task 
database) 

MENUMOD 2-2 
Message and task database 
Adding tasks 2-10 
Batch modifications 2-7 
Customization 2-1 
MASSMOD 2-2,7 
MENUMOD utility 2-2 
Message modification 2-6 
Option menu modification 2-5 
Record descriptions 2-1; A-1 


Sample customizations 2-9 
Schema definitions A-1 
Task menu modification 2-4 
Task modification 2-3,9 
Message help (MH) record 
Description 2-1 
Routines B-78 
Schema A-1 

Message information (MI) record 
Description 2-1 
Routines B-81 
Schema A-1 

Message modification 2-6 
MESSAGEMOD command 2-6,9 
Modifying records 3-11 
MSG subroutine 3-13 
MSGSTR subroutine 3-13 


N 


NXTEDN subroutine 3-19 
NXTFIL subroutine 3-19 


o 


Obtaining records 3-7 
OMENUMOD command 2-5 
Option keyword (OK) record 
Description 2-1 
Routines B-83 
Schema A-1 

Option menu (OM) record 
Description 2-1 
Routines B-86 
Schema A-1 

Option value (OV) record 
Description 2-1 
Routines B-89 
Schema A-1 

OPTVAL subroutine 3-15 
Order of changes 3-2 
Ordering manuals 8 
OVCAPS 

Adding a Task 2-11 
Creation 3-6 

Standard subroutines C-1 


P 


Part family (PF) record 
Description 3-4 
Routines B-96 
Schema A-4 
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Part information (PI) record 


Task modification 2-3,10 


Part information (PI) record 
Description 3-4 
Routines B-lOO 
Schema A-4 

Part vendors (PV) record 
Description 3-4 
Routines B-105 
Schema A-4 
Parts data (PD) record 
Description 3-4 
Routines B-97 
Schema A-12 
PAUSE subroutine 3-16 
Pending permits (PP) record 
Description 3-4 
Routines B-101 
Schema A-10 
POPT subroutine 3-16 
Procedures 
Alternate 1-7 
EDL 1-7 
RTASKS 3-21 
Prompt modifications 2-9 
PUTNAM subroutine 3-19 
PUTVAR subroutine 3-20 


R 


Related publications 7 
Release authorization (RA) record 
Description 3-4 
Routines B-109 
Schema A-13 

Release procedure (RP) record 
Description 3-4 
Routines B-115 
Schema A-13 

Release signature (RS) record 
Description 3-4 
Routines B-121 
Schema A-13 

Release transfers (RT) record 
Description 3-4 
Routines B-126 
Schema A-13 
Releasers (RU) record 
Description 3-4 
Routines B-128 
Schema A-13 
RETLIS subroutine 3-20 
Retrieval methods 3-25 
Review responsibility (RR) record 
Description 3-4 
Routines B-116 
Schema A-13 


s 


Schema definitions A-1 
Standard attributes 3-2 
Standard EDL routines 3-11; C-1 
Status message routines 3-12 
Storing records 3-11 
Submitting comments 8 
Subroutines 
COPYF 3-16 
CSCRN 3-16 
CUTSTR 3-17 
ERR 3-12 
ERRIB 3-13 

Error and status message 3-12 

ERRSTR 3-12 

GETPRM 3-18 

GETPRN 3-18 

ININT 3-14 

INOPT 3-15 

INP 3-14 

INTXT 3-14 

INYN 3-15 

LIST 3-18 

MSG 3-13 

MSGSTR 3-13 

NXTEDN 3-19 

NXTFIL 3-19 

OPTVAL 3-15 

PAUSE 3-16 

POPT 3-16 

PUTNAM 3-19 

PUTVAR 3-20 

RETLIS 3-20 

Standard 3-11; C-1 

User input 3-14 

Utility 3-16 

System administration overview 1-1 
System administrator tasks menu 1-7 


T 


Task command (TC) record 
Description 2-1 
Routines B-132 
Schema A-2 

Task information (TI) record 
Description 2-1 
Routines B-135 
Schema A-2 

Task menu modification 2-4 

Task menu (TM) record 
Description 2-1 
Routines B-137 
Schema A-2 

Task modification 2-3,10 
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Task parameter value (TV) record 


Vendor information (VI) record 


Task parameter value (TV) record 
Description 2-1 
Routines B-148 
Schema A-2 

Task process (TP) record 
Description 2-1 
Routines B-141 
Schema A-2 

TASKMOD command 2-3,9 
TMENUMOD command 2-4 
Transfer and translation tasks (TT) 
record 

Description 3-1 
Routines B-144 
Schema A-8 


u 


Upgrading 1-8 

User configuration (UC) record 
Description 3-4 
Routines B-152 
Schema A-6 


User information (UI) record 
Description 3-4 
Routines B-155 
Schema A-3 

User input routines 3-14 
User permit (UP) record 
Description 3-4 
Routines B-159 
Schema A-10 
User profile tasks 4-2 
Utility routines 3-16 


V 


Variable declaration 3-7 
Variable display 1-3,4 
Vendor information (VI) record 
Description 3-4 
Routines B-163 
Schema A-4 
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We value your comments on this manual. While writing it, we made some assumptions about who would use 
it and how it would be used. Your comments will help us improve this manual. Please take a few minutes 
to reply. 


Who are you? 

□ Manager 

□ Systems analyst or programmer 

□ Applications programmer 

□ Operator 

□ Other 

What programming languages do you use? 


How do you use this manual? 

□ As. an overview 

□ To learn the product or system 

□ For comprehensive reference 

□ For quick look-up 


How do you like this manual? Check those questions that apply. 


Yes 

□ 

□ 

□ 

□ 

□ 

□ 

□ 

□ 

□ 


Somewhat 

□ 

□ 

□ 

□ 

□ 

□ 

□ 

□ 

□ 


No 

□ Is the manual easy to read (print size, page layout, and so on)? 

□ Is it easy to understand? 

□ Does it tell you what you need to know about the topic? 

□ Is the order of topics logical? 

□ Are there enough examples? 

□ Are the examples helpful? (□ Too simple? □ Too complex?) 

□ Is the technical information accurate? 

□ Can you easily find what you want? 

□ Do the illustrations help you? 


Comments? If applicable, note page and paragraph. Use other side if needed. 


Would you like a reply? □ Yes □ No 


From: 


Name 

Company 

Address 

Date 


Phone 


Please send program listing and output if applicable to your comment. 






